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Hvordan laver jeg mit eget spil, er 
et af de sporgsmal, vi oftest far 
stillet her pa redaktionen. 

Mange nybagte computerejere 
har nemlig mattet sande, at ned- 
skydning af flyvende tallerkener 
og spegelsesf ortcerende oste 
krcBver en hel del viden om, hvor¬ 
dan skcermen fungerer, hvordan 
joysticket styres osv . 5 ’SOFT 
Special’ ’ har bedt en virkelig eks- 
pert pa omradet give gode rad til 
spilkonstruktorer. Det er forfatte- 
ren Erwin Neutsky-Wulff, som er 
kendt for sine boger til Sinclair, 
Commodore og Texas. 


Et par mbneder i selskab med 
din nye computer bringer dig 
helt sikkert et stort skridt vide- 
re i sporgsmblet Du Ibr Here 
erlaringer, lcerer maskinens 
scerkender og du finder snart 
ud at, hvordan en lysende 
prik pb skcermen kan for- 
vandles til et skrcekindjagen- 
de uhyre, 

I denne artikel vil jeg give dig 
en rcekke tips til opbygning 
af spilprogrammer. Vi viser i 
starten en rcekke simple spil, 
der kun bruger skcermen til 
tekst. De har den fordel, at de 
ncesten uden cendringer kan 
kore pb forskellige computer- 
typer. 

Jeg har lavet programmerne 
pb en Commodore 64 og en 
VIC-20. Har du en Texas TI-99/ 
4A, vil den ikke kunne tage 
"flere scetninger" i en linie, 
som i vores listning er adskilt 
ved kolon. Pd en Spectrum 
og en ZX-81 vil ordren RND( 1) 
slet og ret hedde RND. 


Pd andre maskiner vil der 
vcere tilsvarende smd afvi- 
gelser, men alle, der kender 
lidt til sin computer, kender 
sikkert til disse scerprceg. Det 
er forst, ndr vi gdr over til de 
store skcermprogrammer, at 
overseettelser bliver meget, 
meget sveere. Men, alligevel 
vi tager nogle enkle skeerm- 
spil med undervejs i artiklen. 


Smd gaver 
Ira computeren 

En gave fra oven til spillema- 
geren er RND(1). Skriver vi 
PRINT RND(1), fdr vi som be- 
kendt et tal mellem 0 og 1 
med en masse decimaler. I 
Spectrum skrives RND* 1. 
Mere brugbart bliver det med 
INT. hvor f.eks. PRINT INT(RND 
(1)*6)+1 tilfredsstillende simu- 
lerer en terning. Vi kan nu 
prove at geette maskinens tal 
eller eventuelt spille terning 
mod den. 

Et rouletteprogram kan tildele 
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gevinst. ndr vores tal kommer 
ud. og vi kan prave at sprcen- 
ge en bank. Eller vi kan 
handle med aktier, hvis kur- 
ser stiger og f alder. 

Et er imidlertid at id ideen til et 



sddant spil. noget andet rent 
taktisk at tremstille det. Ne- 
denstdende indeholder de 
almindeligste komponenter. 
Ved at analysere det skulle vi 
id en anelse om, hvordan sd- 
dan noget tungerer. 


1 fi=100 B=6 C=6 PRINT PRINT "BILLV THE Kill HSR": PRINT "UBFORBRET BIO TIL BUEl" 

2 IP fl=0 THEN PRINT "I BLEV OOBE VENNER" ENB 

3 PRINT PRINT-RFSTRNB" fl "METER" PRINT "BU HSR" B "SKUB TILBSGE" IF B*0 THEN 7 

4 INPUT "VIL BU SKVBE (J7N)",fl» IF R«="N" THEN 7 

5 B-3-I PRINT"BU SK0B ", IF RNB <l»fi/100 THEN PRINT”00 RSMTE" PRINT'BU ER EN HE 
LT" ENB 

6 PRINT "FORB!" 

7 IF RNB<1KS7100 OR C-0 THEN PRINT "THE KIB VENTER ROLIOT" GOTO 2 

8 C-C-l PRINT"BILLV SK0B ", : IF RNBUXS/100 THEN PRINT "FORBP-OOTO 2 

9 PRINT "00 RSMTE" PRINT "BU ER TEMMELIG B0B" 

RESBV. 



Som man vil se, er der tre va- 
riabler ud over AS, der blot 
tager imod indtastning. A er 
atstanden mellem duellan- 
terne, B antallet at patroner i 
din revolver, og C antallet i 
modstanderens. Linje 1 giver 
disse variabler deres oprinde- 
lige vcerdi og prcesenterer 
spilleren for spillet. 

I linje 2 starter spillet med at 
formindske atstanden med 1. 
Duellanteme ncermer sig hin- 
anden og venter pd, at en at 
parterne skal trcekke. Hvis af- 
standen bliver 0 uden noget 
dadsfald, md man gd ud tra 
en tredsslutning. Denne situa¬ 
tion kan undertiden opstd, 
ndr begge har tamt deres re¬ 
volver uden at ramme mod- 
standeren. 

I linje 3 tdr vi situationen pd 
skcermen. Vi tdr atstanden at 
vide i meter, og hvor mange 
skud vi har tilbage. Modstan¬ 
derens patronbeholdning md 
vi selvtalgelig selv holde 
regnskab med. Hvis B=0, 
kan vi at gode grunde ikke 
skyde, og den falgende del 
at programmet, linje 4, 5 og 6 
er overlladige og springes 
over. 

I modsat laid bliver vi spurgt, 
om vi har lyst til at vove et 
skud pd den opgivne at- 
stand. Hvis ikke, springer vi li- 
geledesvidere. Hvisja. mister 
vi en patron (B=B-1) og tdr at 
vide, at vi har skudt. 

Herefter har vi det kryptiske 
' 'IF RND( 1) > A/100 THEN PRIN 
..." Som vi ved, er dette tal 
mellem 0 og 1. 

Nu stUles 
betingelserne 

Lad os nu torestille os, at at¬ 


standen er 50 meter. Vi tdr 
nu. at vores tiliceldige rand- 
omtal skal vcere starre end 
50/100, altsd starre end 0.5. 

Det vil det vcere 1 cirka halv- 
delen at tiltceldene (der er li- 
ge mange muligheder over 
og under), og vores chancer 
tor at ramme er altsd titty-titty. 

La os imidlertid sige, at at¬ 
standen er 90. Nu skal det til- 
fceldige tal vcere over 0.9, 
hvad det givetvis kun er i 10% 
at tiltceldene. Omvendt kan 
vi ncesten ikke undgd at ram¬ 
me pd alstand 10, RND( 1) skal 
sd blot vcere over 0.1. 

Resultat: Jo starre alstand. de- 
sto mindre chance tor at ram¬ 
me. Eller anderledes udtrykt - 
jo lcengere vi venter, desto 
starre chancer har vi tor at 
ramme, men jo starre chance 
er der selvtalgelig ogsd tor, at 
modstanderen skyder tarst. Et 
uhyre primitivt, men dog 
"strategisk" spil og en "reali- 
stisk" simulation. 

Hvis betingelsen i 5 ikke er 
optyldt, ryger vi ned i 6. vi 
ramte torbi. Nu er det Billys 
tur. Han ved selvtalgelig og¬ 
sd, at han skal vente. men ik¬ 
ke tor lcenge, hvortor (som du 
vil kunne regne etter) sand- 
synligheden lor, at han sky¬ 
der. er tilsvarende alhcengig 
at atstanden. Er han ikke til- 
treds med oddsene, eller (OR) 
der simpelt hen ikke er tlere 
patroner i hans revolver, 
"venter han roligt". 

I modsat laid skyder han, og 
sandsynligheden tor at ram¬ 
me afhcenger igen at atstan¬ 
den. Vi kan gare ham til en 
bedre skytte end os selv ed at ^ 
udskitte 100 med t.eks. 125. 
men i vores eksempel er vi li- r 
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ge gode. Skyder Billy forbi, ry- 
ger vi tilbage til 2 og rykker 
endnu en meter ncermere. 
Rammer han, ndja . . . 


1 

2 B=INT<RND<1>*9> + 1UF fl<B)=l THEN 2 

3 flS<ft> s STRJ<B> : fl<B)-l : IF fl<9 THEN 1 

4 PRINT PRINT'FOR fl=l TO 9'PRINT fl*<fl)i : NEXT : C“C+1 : PRINT : PRINT ; PRINT"FORS0G" C 

5 INPUT"VEND”;fl IF fl<2 OR fi>9 THEN PRINT^OOTO! 

6 FOR B=1 TO fl BJ<B)=H*(R-B*1):NEXT:F0R B=1 TO fl P*<B)=B*<B)-NEXT 

7 FOR TO 9 IF VRL<R*<A»OA THEN 4 

8 NEXT : PRINT : FOR R=1 TO 9 : PRINT -NEXT PRINT 

9 NEXT : PRINT : FOR fl=l TO 9 PRINT flt(H); NEXT PRINT 

REfiDV. 


Vi kan til en begyndelse kore 


det. Vi fdr opgivet en talrcek- 
ke, lad os sige 

218596743 

eller tallene 1-9 i vilkdrlig 
rcekketolge. Vores opgave er 
nu at scette dem i nummeror- 
den i sd Id forsog som muligt. 
Pointen er, at vi kan fd vendt 
et hvilket som heist antal cifre 
regnet Ira venstre pr. om- 
gang. Pd maskinens sporgs- 
mdl VEND? kan vi sdledes 
svare 5 og fd den ny talrcek- 
ke 

958126743 

Siger vi nu i nceste omgang 9, 
har vi i hverttald ldet nitallet 


pd plads, Det hele kan udto- 
res ret mekanisk, men der 
kan ogsd skydes genveje. Et 
nceste trcek pd 4 ville mdske 
ikke vcere sd ddrligt? Men 
hvor Id omgange kan vi rent 
laktisk komme ned pd? 

Spil at denne type kan der 
naturligvis laves et ubegrcen- 
set antal at. Lad os se lidt pd, 
hvordan dette her virker. 

De forste 3 linjer har at gore 
med at lave den tiltceldige 
talrcekke. Pointen er, at hvert 
oilier fdr en ekstra vcerdi, der 
bliver til 1, ndr cilferet er 
"brugt" - vi skal jo ikke have 
noget cider to gange. 

4 printer den aktuelle talrcek¬ 
ke ud og holder regnskab 
med, hvor mange forsog vi 
bruger. 5 sparger, hvor man¬ 


ge, og 6 udforer selve "ven- 
dingen". 7 checker i hver 
omgang, om opgaven er 
lost, mens 8 (som en scerlig til- 
Iredsstillelse lor os) printer den 
ordnede talrcekke ud. 

Dette eksempel er lidt van- 
skeligere end det loregden- 
de, men hvis du kigger grun- 
digt pd hver linje, er det til at 
(inde ud at selv lor begynde- 
ren. Ndr cilrene laves om til 
strenge, er det udelukkende, 
lordi tal har en tilbojelighed til 
at lylde en del pd skcermen. 


RERDV. 



Mod Billy i 
en labyrint 

Adventure-spil er underhol- 
dende og ikke sd svcere at la¬ 
ve. Du kunne have modt Bil¬ 
ly the Kid (eller en hel horde 
desperados) i en labyrint 
(western-by). I sin simpleste 
form bestdr en sddan labyrint 
af PRINT-linjer, der beskriver 
de enkelte mm, med GOTO 
imellem. Pd den anden side 
kan ganske Id linjer blive til et 
under holdende spil. Prov 
l.eks. 


Kor programmet, og du bliver 
prcesenteret lor et enkelt cil- 
ler, som straks etter torsvinder. 
Hvad var tallet? Klarer du det, 
bliver tallet tocifret, og sdle¬ 
des videre, indtil du husker 
forkert, hvorefter spillet slutter, 
og du Idr et pointsantal. 
PRINT "h” betyder simpelt 
hen, at skcermen slettes (pd 
VIC og 64). En Texas vil have 
CALL CLEAR, Sinclair slet og 
ret CLS.D 

Erwin Neulzsky-WuIIl 


1 R«=R$*CHR*<INT(RND(1)*10>*48> R=R*I PRINT PRINT RJFOR B»1 TO R*100 NEXT 

2 PRINT "H" INPUT "Tfll",B« IF R»=B* THEN 1 

3 PRINT PRINT "NEJ, " R« PRINT PRINT R*100 "POINTS" 


Vigtigt tip 

■ Vi Idr ofte henvendelser Ira 
lcesere, der ikke kan tyde de 
inverse tegn pd Commodore 
programmer. 

I de lleste tillcelde bruges dis- 
se tegn udelukkende til at lar- 
ve teksten eller printe den 


pcenere ud pd skcermen. De 
kan derfor olte undvceres, da 
de ikke betyder noget lor sel¬ 
ve programmets korsel. 
Bemcerk dog, at tegnene in¬ 
verse hjerter og inverse S skal 
bruges altid.D 


I nceste nummer at "Soft", vil samtlige Commodore 64 ud- 
listninger vcere forsynet med informationer i stedet tor et in¬ 
verse tegn. 
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a 

[XU 

COMMODORE 

7 
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F4 

■ 

■■■ 

CTRL 1 
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■■ 

■■ 

S55! 
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- 

— 
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0" 

j 
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91 
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a 
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CTRL 3 


a 

[II3 
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a 


HOME THSTEN 

■1 

■in 

F7 


wkk 

CTRL 4 


■ 

RME 

COMMODORE 2 

n 

■H 

INST TfiSTEN 

■ 

■■■ 

F8 


Her p 6 "SOFT" og "All om 
Data" eager vi hele tlden et- 
ter nye og spcendende pro¬ 
grammer 111 alle gcengse 
computertyper. Llge Ira smd 
smarte rutlner, over spU til 
serlese brugerprogrammer. 
Alle ollentllgglorie program¬ 
mer belennes med op HI 
1000 skattelrl kroner, der ud- 
betalei korl etter at bladet er 
udkommet. 

Indsend dlt/dlne program¬ 
mer pd kassettebdnd, di¬ 
skette eller mlkrodrlve og 
vedlaeg beskrivelse og geme 
udllstnlng. Programmer 
uden medsendt lagermedie 
kan Ikke bearbejdes at re- 
daktlon og Idr derfor Ikke 
chance tor at komme 1 bla¬ 
det. 

At praktlske grande beder vt 
om, at du vedloBgger en 
lrankeret returkuvert med ty- 
dellg adresseanglvelse. 
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"+CHR*<242 •♦CHR*'243H“ 


locate xx+6.yx-i pa 


LOCATE XM,W-1 PR 


IF YX<3 THEN YX-3 RETURN 
IF YX>18 THEN YX-18 RETURN 


10 DIM A*<2>,e*C2>,C*<2> 

20 ’ st-ler-ne j ?9er 
30 G0SU8 670 

40 F=0 TP-0 8Z-10500SK-30 BORDER 
50 INK 0.0 INK 1,15 INK 2,9 INK 3 
60 ' SKHERflEN SAETTES OP 
70 fi*' 1 >=" "*CHR*'255)+" 

80 A*' 2 >*" 

90 8*< 1 >=" 

100 8*'2>= 

110 C*< 1 "+CHR*< 213 )+CHR*f 209 )+CHR*' 208 HCHR*' 212 )+" " 

120 C*'2>-" "+CHR*<214)+CHR*(210)+CHR*(210)+CHR»<215)+" " 

130 LOCATE 1,1 PEN 1 PRINT STRING*'40.127) LOCATE 1,20 PRINT STRING*' 40.127) 

140 FOR N=2 TO 19-LOCATE l.N PEN 1 PRINT CHR*< 127>, LOCATE 40,N PRINT CHR*< 127> N 
EXT 

150 EVERY 100,0 GOSUB 460 REM BENZIN 
160 'HOVEDPROGRAM 

170 XX-INT'33*PND>*2 : YX-INT' 16*RND)+3 ! F1*=A*' 1 > F2*-A*<2> 

130 LOCATE XX.YXPEN 2 PRINT FI* LOCATE XX.YX-l PRINT F2* GOSUB 510 
190 IF INKEY'47>-0 THEN GOSUB 520 
200 GOSUB 260 

210 IF INKEY<0)-0 THEN 8-4 GOSUB 310,LOCATE XX-I.YX-2 PRINT 
220 IF INKEY'1>«0 THEN 8-1 GOSUB 280 LOCATE XX*6-YX PRINT" • 

INT" " >LOCATE XX+6.YX+1 PRINT" " 

230 IF INKEY<2)*0 THEN B-3,GOSUB 300 LOCATE XX-1,YX»1 PRINT 
240 IF INKEY' 8>-0 THEN B-2,GOSUB 290 ' LOCATE XX-l.YX PRINT" 1 
INT" » 

250 El ) Or GOTO 180 
260 ’ 8EVAEG FJENDE 
270 B-INT'RND46 >+l 

280 IF B=1 THEN XX-XX-1IF XX<3 THEN XX-3,RETURN 
290 IF B-2 THEN XX-XX+1 • IF XX>33 THEN XX-33 ■ RETURN 
300 IF B-3 THEN YX-YX-I LOCATE XX,YX*1,PRINT 
310 IF B-4 THEN YX-YX+1■LOCATE XX,YX-2'PRINT 
320 IF B-5 AND Fl*-A»<I> THEN F1*-B*(1 )'F2*-B*'2 > 1 RETURN 
330 IF B-5 AND Fl*-B*<1> THEN F1»-C*' I> : F2*=C*( 2 > 1 RETURN 
340 IF B-6 AND F1*«C*(1> THEN F1*=B«<1> F2*»B*' 2 >■RETURN 
350 IF 8=6 AND F1»=B*(1> THEN F1*=A*(1> F2*-A*<2> RETURN 
360 RETURN 
370 STOP 
380 'EKSPLOSION 
390 ENV 1,15.-1,10 
400 SOUND 2,0.150.0,1,0,15 

410 LOCATE XX+3.YX PEN rPRINT CHR*<238>‘FOR N-0 TO 50 NEXT 

420 LOCATE XX,YX PRINT STRING*'6.207>,LOCATE XX.YX-l PRINT STRING*'6,207> FOR N- 
0 TO 200 NEXT 

430 LOCATE XX.YX,PRINT STRING*'6.32>'L0CATE XX,YX-rPRINT STRING*'6,32> 

440 F-F+r BORDER F MOD 32 RELEASE 7 
450 R-l.RETURN 
460 'BENZIN 

470 LOCATE 1,22,PEN 3 : PRINT"BENZIN ! ")USING"*#»##“,BZ 
480 IF BZ =0 THEN U-REMAIN'0),GOTO 660 
490 BZ-BZ-100 
500 RETURN 

510 MOVE 304,204 DRAW 304,236,3'DRAW 336,236,3,DRAW 336,204,3■DRAW 384,204,3'RET 
URN 

520 'SKUD 

530 MOVE 17,98'DRAW 320,220,3 MOVE 623,98 DRAW 320,220.3 
540 MOVE 17,98 DRAW 320.220,0 MOVE 623.98 DRAW 320,220,0 
550 SOUND 1,50,10.7,0,10 

560 IF <16<XX AND XX<20> AND <YX«11 OR YX-12) THEN TR-TR+l'LOCATE 20,22'PEN 3'PR 
INT"RAMT'"iTR GOSUB 380 

570 SK-SK-1'LOCATE 30,22'PEN 3■PRINT"SKUD'";USING"4*“;SK IF SK-0 THEN R-0U-REMA 
IN'0>, GOTO 610 

580 IF R-l THEN R-0 GOTO 170 
590 RETURN 
600 SPIL SLUT 

610 LOCATE 1,23 PEN 1PRINT"DU HAR IKKE FLERE SKUD." 

620 PRINT "VIL DU PROVE IGEN?(J/N>“ 

630 IF INKEY'45>=0 THEN CLS GOTO 40 

640 IF INKEY'46>=0 THEN CLS : PRINT"TAK FOR DENNE GANG 1 " 'RESTORE GOSUB 790 FOR N-0 
TO 500'NEXT END 
650 GOTO 630 

660 LOCATE 1,23'PEN 1PRINT"DU HAR IKKE MERE BENZIN!" GOTO 620 
670 'TITELSIDE 

680 MODE 0,BORDER 15'INK 0,0 INK 1,21 
690 LOCATE 1,1 PRINT"****STJERNEJAGER****" 

700 PRINT STRING*'20.127),PRINT"AF HANS WINTHER" 

710 GOSUB 790 

720 PRINT "DU ER I EN ST.JERNE- JAGER OG SKAL FORS- VARE DIT MODERSKIB MOD FREMME 
DE." 

730 PRINT,PRINT"DU STYRER DIN JAGER MED CUR80R-THSTERNE OC. SKYDER MED MEL- LEMR 
UMS-TASTEN." 

740 PRINT"HELD OG LYKKE!“ 

750 PRINT"TRYK PAA 'COPY'* 

760 IF INKEY<9>=0 THEN GOTO 7S0 

770 RESTORE GOSUB 790 GOTO 760 

780 MODE 1 GOTO 40 

790 READ fiote.dur 

800 IF NOTE-9999 THEN RETURN 

810 SOUND l.note.dur,15 

820 GOTO 790 

830 DATA 478,50,319.50,353,13,379,13-426,13.239.60.319,60.358,13,379,13.426.13,2 
39,60-319.60,358-15,379-15-358-15-426.70.9999.9999 



■ Jorden bliver angrebet al 
Iremmede mmskibe. Din op- 
gave er selvfolgelig at forsva- 
re hjemplaneten. 

Du sidder i din Starhunter og 
kigger ud gennem lasersigtet. 
Det gcelder om at skyde sd 
mange iremmede skibe ned 
som muligt. Du styrer jageren 
med cursortasterne og skyder 
med mellemrumstangen- 
ten.D 

Hans Winlher 
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Hvad? 

EhDolIah? 

Hvem? 






EhDolIah er navnet pb bbde 
Goldstars nye adventure og 
byen som eventyret drejer sig 
om. Engang var EhDolIah 
(byen). konger og kejseres til- 
holdssted. men efter krigen 
med den grbdige ' 'Sur-fode- 
ration", er byen faldet totalt i 
miner, og kun et menneske 
lever stadlg i resterne. 

Dette menneske er den onde 
troldmand Meglin, der for kri¬ 


gen var god og passede pb 
EhDollahs dyrebareste skat, - 
rubinen der kan forvandle al- 
le metaller til guld (de vises 
sten). 

Under krigen blev Meglin 
vanvittig, og nu har han til- 
kaldt en horde ai fabeldyr til 
at forsvare rubinen. Spilleren 
skal kcempe sig igennem by¬ 
en, sib Meglin ihjel, og slippe 
ud igen. 

Goldstar reklamerer med, at 
der bruges en helt ny teknik, 
hvor man ikke som normalt i 
adventures, moder et uhyre 
og drceber det eller bliver 
drcebt. Det er ogsb sandt, for- 


di man ved modet kan vcel- 
ge mellem at flygte eller slbs. 
Hvis man vcelger at slbs, kan 
der ske to ting. - enten ram¬ 
mer man eller ogsb rammer 
uhyret. Wauw. 

Ligefrem at kalde det for 
''real-time combat'' er mbske 
lidt overdrevet. Til EhDollahs 
ros skal siges, at det ikke altid 
er det samme, der sker pb de 
forskellige steder i spillet. Eh¬ 
DolIah er udelukkende tekst. 
Nul grafik og nul 1yd. Spillet er 
ogsb ret let selv om Goldstar 
pbstbr det modsatte. 

Det er mbske en fordel, for ta¬ 
ler man engelsk er EhDolIah 
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et ganske udmcerket "forste- 
adventure". (CBS). 

Grafik: ||| Ingen 

Lyd 85£, I Ingen 
Action: m 03 

Fcengslenae: 9 

Pris/kvalitet: 8 
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Sure log 

I Roland goes Digging skal 
du grave huller. som nogen 
levende log kan falde ned i. 
Sb snart loget er dumpet i. 
skal man skynde sig at dcek- 
ke hullet til med sin spade. 
Hvis man ikke nbr det, kom- 
mer loget op igen, frygtelig 
rod af vrede. Det vil sb direk- 
te jage en. op og ned ad 
trapper. Eneste redning er at 
grave to huller under hinan- 
den, sb det sure log kan falde 
to etager ned, for det kan det 
nemlig ikke tble. Mens alt 
dette foregbr falder iltmceng- 
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den stot og roligt. og man skal 
nb at putte alle log i jorden, 
for ilten er udtomt. 

Spillets grafik er elendig, 
grove tegninger og grimme 
larver. Lyden er om muligt 
vcerre, men den kan man 
dog slukke for. Spcendingen i 
spillet modsvarer stort set 
spcendingen ved at grave 
log ned i sin egen have. Sb 
sbdan set er det et ret realistisk 
spil. (Twilight). 

Grafik: 7 

Lyd: 6 

Action: 7 

Spcending: 6 

Pris/kvalitet: 6 
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Rumkuller 
til lavpris 


1985 har ikke noget med brs- 
tallet at gore, som vi befinder 
os i netop nu. Hvad tallet skal 
henfore til er lidt usikkert, men 
i hvert laid er det titlen pb Ma- 
stertronics nyeste produkt. Et 
rumspil efter klassisk monster, 
der kun vinder i vores gunst, 
fordi det er meget billigt. 
1985 er joystick kontrolleret 
og minder i styring meget om 


velkendte Lunar Lander. Du 
skal besoge forskellige plane- 
ter med dit rumskib, tanke op 
fra smb lilla depoter og snork¬ 
le dig igennem rumlabyrin- 
ter. 

1985 er et udmcerket spil for 
begyndere. Undervejs i uni- 
verset besoger du 8 forskellige 
planeter, inden du hopper vi- 
dere til nceste svcerhedsgrad. 
(Supersoft). 

Grafik: 7 

Lyd: 6 

Spcending: 8 

Pris/kvalitet: 13 
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Konkurrence 
for McEnroe 


Mortchpoints er lige net op, 
hvad du fdr, hvis du kan be- 
gd dig i Psions uscedvanlig 
flotte sportsspil at samme 
navn. Det er tennis, det hele 
drejer sig om. Ovenikobet i 
en udgave, som sldr alt, 
hvad vi hidtil har set i genren, 
Matchpoint har vceret pd 
markedet i et lille stykke tid, 
men spillet er sd godt, at vi 
simpelt hen ikke kunne lade 
vcere med at anmelde det. 
Matchpoint er ikke blot et fas- 
cinerende tennisspil. Pro¬ 
gramme! kan udmcerket bm- 


I elektronik 
helvede 


Gratik: 

Lyd: 

Action: 

Pris/kvalitet: 




ges som kursus udi John 
McEnroe sporten. Spilleren ser 
nemlig pd en meget livagtig 
mdde, hvordan ketsjeren 
skal holdes i alle mulige sne- 
dige slag - underskruning, 
overskrue, sideskrue, smash 
osv. 

Matchpoint har en rimelig 
god gratik, og lyden er be- 
stemt ikke at prale at. Til gen- 
gceld er spcendingen meget 
storre end i markedets ovrige 
sportsspil. 

Du kan vcelge mellem at spil- 
le mod computeren eller 


mod en kammerat. Normalt 
skal man starte i indledende 
kampe for at tortscette i semi- 
tinaler og helt trem til de store 
finale. Med lidt tingerfcerdig- 
hed kan du dog direkte pla- 
cere dig mellem de sidste to i 
turneringen. Pointsgivningen 
er prcecis som i rigtig tennis. 



(Twilight). 

Gratik: 

Lyd: 

Spcending: 

Pris/kvalitet: 


■ For meget lcenge siden, i 
en galaxe langt langt vcek. 
Id planeten Quon, der beher- 
skedes at den onde kejserro- 
bot. 

I Psytraxx er du en mikro- 
robot der skal trcenge gen- 
nem kejserens elektroniske 
kredslob tor at nd trem til 
hans CPU (hjernen i enhver 
computer) og odelcegge 
den. 

Undervejs bliver du angrebet 
at alt lige fra kondensatorer 
og transistorer til blinkende 
lysdioder. Heldigvis har du en 
lille kanon, der skal lades op 
med de batterier, du tinder 
undervejs. 

Fabrikanten hcevder, at der 
er mere end 1000 skcerme at 
udforske, og dette gdr natur- 
ligvis ud over detaljerne. 
Hvert mm er en lille labyrint 
at printbaner besat med tor- 
skellige komponenter, som 
du ikke md ramme. Det gcel- 
der om at finde de torskellige 
adgangskort, sd du kan kom- 
me ind til selve CPU'en. 
Psytraxx krcever ikke den 
helt store hjernevirksomhed. 
men det md vcere op til den 
enkelte at afgore, om dette 
taler for eller imod spillet. Spil¬ 
let er ret ensformigt, men er 
utvivlsomt et udmcerket alter- 
nativ til sovepiller. (Twilight)D 
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Nu har du chancen tor at se, 
hvordan jorden var i fortiden 
og hvordan vi vil fd det i 
tremtiden. Det er i hvert fald 
den ydre ramme i Roland in 
Time fra Amsott. 

Eller med Amsofts egne ord: 
Roland er strandet pd jorden, 
og skal nu sage hele dens for- 
tid og fremtid igennem etter 
krystaller til hans odelagte 
Anti-Matter Space-Time Run- 
A-rounD. Der er 98 tidszoner 
med hver op til 9 underzoner 
ialt 53 scener, der skal sages 
igennem. 

Undervejs vil du stade pd de 
mcerkeligste dyr, hvis eneste 
fcellestrcek er. at de drceber 
dig hvis du kommer for ncer. 
For at komme igennem alle 
de scener der er i hver enkelt 
tidszone skal du ofte toretage 
de mcerkeligste krumspring 
og finde usynlige hemmelige 
gange. 

Roland in Time ser mistcen- 
keligt ud til at vcere inspireret 
at Manic Miner. Men spillet er 
selvstcendigt og godt lavet. 
Det varer MEGET lcenge tar 
man bliver trcet at at sage 
igennem scenerne. 
Grafikken er ret god. hurtige 
sprites, farver og andre effek- 
ter. Lyden er elendig. Det 
eneste gode man kan sige 
om den, er, at den kan slds 
fra! Selve spillet er som anty- 
det fremragende. (Twilight). 



Gratik: 

Action: 

Spcending: 

Pris/kvalitet: 
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Cirkus- 

artister 


En af de (littigsle producenter 
al MSX-programmer er ja- 
panske Konami. I Circus 
Charlie styrer du klovnen 
Charlie, som skal underholde 
publikum bedst muligt ved at 
udfore 5 mere eller mindre 
halsbrcekkende cirkusnum- 
re, Forst skal du springe gen- 
nem brcendende ringe, 
mens du rider pb en dresseret 
cirkuslove. Pas pb de smb 
bbl, der er tcendt i manegen. 
Dem skal du springe over, 
Nbr du er nbet gennem hele 
banen skal du til at gb pb li¬ 
ne. Det lyder mbske nemt, 
men du skal passe pb aber- 
ne: Hvis de rammer dig falder 
du ned. Heretter skal du ba- 
lancere pb nogle store bolde, 
ride pb cirkushest og hoppe 


fra trapez til trapez. Du kan fb 
Charlie til at bevcege sig frem 
eller tilbage og hoppe, og det 
gcelder hele tiden om at ha¬ 
ve timingen i orden, Ellers fol¬ 
der du ustandselig pb halen. 
Circus Charlie er let forstbe- 
ligt og ublodigt. og vil derfor 
forst og fremmest henvende 
sig til de yngste. Grafik og 1yd 
kan ikke mble sig med de 
bedste spil, men virker dog 
ganske overbevisende, idet 
der er gjort udstrakt bmg af 
sprites. En god detalje er, at 
du, nbr du har mistet din sid- 
ste Charlie, kan starte et nyt 
spil med at udfore det samme 
nummer, som du sidst arbej- 
dede med. Du behover altsb 
ikke starte forfra ved hvert nyt 
spil. (Twilight). 

Grafik: _.-jj 9 
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Pris/kvalitet: - 8 



00001200 


I ■»» •»« » 

ccootecc 


Gryp, gryp 
min hest 


■ Tony Crowther, der sidst vi- 
ste os den perfekte efterlig- 
ning af Suicide Express med 
Black Thunder, kommer her 
ihvertfald med noget nyt. 
Gryphon hedder spillet og 
handler om en lille griffin. Et 
vcesen fra et drommeland 
fjernt vcek fra storbyernes stoj 
og os. Gryphon ligger og 
drommer, da han bliver 
vcekket brat af forstyrrende 
smb spogelser. Det var dog 


pokkers! - Nb, men jeg mb 
hellere se og finde min rede i 
stedet for at ligge her ude i 
skoven og sove hele livet 
vcek. 

Men - intet er som for, pludse- 
lig er der spogelser overalt. De 
flagrer hen over hovedet pb 
Gryphon, der med mystiske 
krumspring mb forsoge at 
undgb dem. Men forsoge sig 
til vands er heller ikke muligt 
Vandet er nemlig blevet for- 
vandlet til den rene gift. 
Gryphon er foruden sine fire 
ben forsynet med et scet vin- 
ger. 

Disse vinger kan kun bcere, 


Hekse- 

kunster 


■ Har du nogensinde provet 
at flyve rundt i luften, lande 
pb heksekedler eller provet at 
kcempe mod kranier og mu- 
mier? - Hvis ikke skal du 
prove at spille Sorcery. 
Sorcery findes til bbde Spec¬ 
trum, Commodore, Amstrad 
og MSX systemet. Vi har speci- 
elt kikket ncermere pb Spec¬ 
trum og Commodore udga- 
ven og viser skcermbilleder 
fra disse to. 

Spectrum udgaven er en 
meget skrabet udgave, hvor 
du kun har 15 skcerme til hele 
spillet. Spillet kan med lidt 


held gennemfores pb meget 
kort tid, og vil ikke motivere 
en garvet spiller til at fortscette 
med det, nbr forst spillet en 
gang er kort til ende. 

Sprit'ene er ikke scerligt vel- 
lykkede, og iscer mumie- 
sprit'en er grim. Lydsiden mb 
betegnes som direkte ubeha- 
gelig og spcendingen mb 
man lede lcenge efter. Com¬ 
modore udgaven har 17 
skcerme. Hot grafik nogenlun- 
de 1yd og flotte sprites. Iscer 
det flyvende spogelse. Svcer- 
hedsgraden er lidt storre end 
pb Spectrum, idet energien 
og tidsfaktoren tilsammen er 
sat sb sncevert, at man nce- 
sten aldrig kommer igennem. 
Selv forskellige joystick-ekvili- 
brister havde problemer med 
at klare mere end 12 af de 17 
skcerme. 
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salremt han har rigeligt med 
tilteb farst. Nar Gryphon er "in 
the air" kan han sd kaste di¬ 
verse forbandelser i hovedet 
pd de omkringilyvende spo- 
gelser. 

Hvis Gryphon far kontakt med 
et spegelse, dor han ojeblik- 
keligt. Gryphons opgave er at 
medbringe en guldbarre ira 
skoven til at plumpe i det for- 
giftede vand for derved at la¬ 
ve ensti til reden. 

Efter vejen er klar til reden, 
kan Gryphon hvile lidt i re¬ 
den, lor turen gdr videre til 
nceste trin, der er en helt ny 
verden at huse og bygninger. 
Sidste level toregdr i tusmorke- 
landet, hvor d 0 den lurer alle 
vegne. 

Spillets originalitet er der den- 
ne gang ingen tvivl om, og 
Quicksilva kan uden slinger i 
valsen kalde deres Gryphon 
tor en nyhed. Grafikken i spil- 
let er fantastisk Hot, og hvis du 
er i besiddelse at Currah Mi¬ 
cro Speech tdr du sjove be- 
mcerkninger med pd vejen. 
(CBS). 

Gralik: commo II 11 

Lyd: “ST S 10 

Action: O 10 

Fcengslende: 9 

Pris/kvalitet: 10 


Ideen er den samme, nemlig 
at tage en nogle og bevcege 
sig til Stone Henge (en kendl 
bunke sten i England) og lose 
mysteriet. 

Amstrad-udgaven md vcere 
Virgins nceste mdl, tor her er 
spillet torsynet med hele 40 
skcerme, god grafik, bedre 
lyd og selvlolgelig storre svcer- 
hedsgrad og atveksling. 

MSX udgaven overgdr Am- 
strad, idet du her har 50 - 
halvtreds skcerme. Hver 
skcerm er dog ikke sd detalje- 
ret som t.eks. Commodore og 
Amstrad, men er heller ikke 
pd nogen mdde ddrlig. Ideen 
med Sorcery er ikke noget 
nyt. men kan alligevel anbe- 
tales nye computerejere. der 
ikke har spillet sd mange spil 
tor, og derlor ikke gennemfo- 
rer spillet sd hurtigt. (CBS). 


Gratik: 

Lyd: 

Action: 

Fcengslende: 

Pris/kvalitet: 


Slappe 

kattetarme 


■ Ja, kattetarme er jo be- 
kendt noget man benytter til 
ketschere, og i dette tiltcelde 
tennisketschere. 

Hvis man har provet Psions 
Matchpoint-tennisspillet tor 
eliten, bliver man uden tvivl 
enormt skuftet, ndr man pro- 
ver On Court Tennis tra Acti¬ 
vision. 

Activision plejer jo ellers at le- 
vere kvalitetsspil, men er den- 
ne gang skudt langt langt for- 
bi. 

On Court Tennis virker meget 
levende, og ser ved torste oje- 
kast ud til at vcere endnu et 
tint produkt. Men snart opda- 
ger man, at sceneriet trods 
den tlotte opscetning ikke rig- 
tig kan bruges til noget. 

Du kan vcelge at spille mod 
computeren eller mod din 
kammerat. Hvis du spiller 
mod computeren, har du sim- 
pelthen ikke en jordisk chan¬ 
ce. Hvis du spiller mod din 
kammerat, og han med moje 
og besvcer tinder ud at, hvor- 
dan man skal bringe bolden 
over pd den anden side at 


Sorcery til Commodore 64 
ilotte sprites og supergraiik 


C 64 Spectrum Amstrad MSX 



nettet, kan du nceppe retur- 
nere bolden 9 ud at 10 gange. 
Sd selve konkurrencen i spillet 
er bare lig med nul - zero - 
nothing. 

Styringen at On Court Tennis 

toregdr selvlolgelig med joy¬ 
stick. Men du skal ikke bevce¬ 
ge din spiller pd banen, men 
derimod kun koncentrere dig 
om det rette salg. Slagene 
kan itolge instruktionshettet 
toregd etter alle kunstens reg- 
ler hvor 75 pet. at dem gdr i 
nettet. Du kansideskrue, over- 
skrue, underskrue samt sma- 
scheiserven. 

Belcegningen du kan spille 


pd er grus. astalt eller grass og 
forskellen er ens (som de siger 
vestpd). 

Grafikken i On Court Tennis 

er livagtig, men ikke pertekt. 
Figurerne er pcene, men re- 
sten er kedeligt. Lydsiden er li- 
gesom i Matchpoint ret beske- 
den. Hvilken lyd skulle man 
ogsd finde pd til tennis. Spcen- 
dingen er som sagt nceppe 
veerd at omtale. (CBS). 


Gratik: 

Lyd: 

Action: 
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Pris/kvalitet: 
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Stenborgen 


THEN 00 SUB 2000 


1 REM **h**B0R0EN*h»*h 

2 REM 48K 2X SPECTRUM 

3 REM 3 JUPP: SOETMBRE 1981 
12 00 SUB 9560 

20 RESTORE : LET krop-160: LET arm-0: LET t.lb-O: LET s.»ta«i: LET buko-0 
30 BORDER 7: PAPER 7: INK OJ CLS 

60 FOR v-0 TO.31: PRINT AT 21.v! INK 4tCHRS 162: NEXT v 
70 00 SUB 3000 
90 INK 0 

100 FOR w«20 TO 0 STEP -1 
110 GC SLB 6000 

120 NEXT w 

130 CO ^UB 8000 

^0 PRINT AT 20. 2; INK itCKRS '.54tChRS iSStCHRS l36tAT 13.3JCKRS 153: PAUSE 15: 
°RINT AT 20.1*. INK ItCKRS 160?AT 19.ItCHRS 16. 

130 $EEP .3.0: BEEP .3.0: BEIP .3.0: PAUSE 2: BEEP 1.-4 
170 00 SUB 7000 

190 LET pcs-O : LET buarn--i53: „ET taai i*r»0 
2B0* IE?* - ia»i i*r«ta*: i*r*I 

201 LET w B ta# i i + r/20: IF -> 20 ’MEN PRIN“ «1 ;AT 0. Ot t lAS-i ifSOM 'IDEM DOG GAA 
R *ED INGENTING": BEc° .5.0: BEEP .6.-4: BEE P .2.0: 30 SUB 6300 
203 IF w»lN” « THEN GO SUB 6000 
207 GO SUB 2300 

215 IF INKEYS""n" AND buanr>!44 THEN fziEP .01.0: LET buanr»bt»r*r-1: GO SUB 750 

0 

240 IF INKEYS"", 

230 GO SUB 3000 
800 GO TO 200 
2000 REM nk yd 

2005 LET taana-O: LET h0vi9 

I'OIO FOR w-buar.r TO 157: PRINT AT 19.oo**3t INK ItCHRS Mi LET bUKO"i: GO S'JB 300 
Ol NEXT w: .LET sty rka-buanr: »ET buar.r-153: LET buxo-0 
2030 FOR w-oos+4 TO 31: PRINT AT kO^.wtCHRS 137 
2035 LET t aaIl#-taai11 

2040 GO SUB 3000: GO SUB 2500: PRINT AT hO,».wf " 

2030 IF ATT R < hO-. *♦ 1) -38 THEN PRINT AT h0.r. *♦ 1 t CHRS 158: FOR b-TO 10: BEEP . 

01. 10+b> NEXT b: 90 Sl/B 2100: LET buanr-133« RETURN 

2055 IF ta+i I a<■(133-styrka) THEN LET hO--hO„-.6: GO '0 2063 

2060 LET h0.»-h0f.6 

2065 IF hO^ >20 THEN BEEP .2.-30: LET buanr-l53t RETURN 

2066 NEXT w 

2070 LET buanr-l33t RETURN 

2100 IF m" 28 THEN FOR vl TO 10: BEEP .01.10: BEEP .01.20: BEEP .01.30: NEXT v: 

GO TO 3300 
2110 RETURN 
2300 REM rykkar vosr. 

2510 IF INKEYS-"*" AND oo*)0 THEN LET oos-POS-1 
2520 IF INKEYS-"s" AND po*<20 THEN LET pos-pos-M 

2325 PRINT AT 19.post INK Of "! INK 1JCHRS KroPS INK Ot" "t INK 1tAT 20. Post IN 
K Ot" "t INK ItCHRS 1601CHRS 1341CHRS 1551CHRS 1561 INK Of "t INK HAT 19 .pos> 3 
tCHRS butnr t INK Ol" " 

2330 RETURN 

3000 REM fvndan skydar 

3010 IF buko-1 THEN GO SUB 3200 

30J5 IF lilb-1 THEN LET tilb-O: RETURN 

3020 IF s.sta-1 THEN LET pi atx-oos+3: LET s.ata-Ot LET kux-24i lET kuy-8 
3030 PRINT AT kuy.kuxf " 

3040 LET kux-kux-1 

3030 LET kuy-kuy+12/(23 -pi atx) 

3052 IF kuy>20 THEN BEEP .01.10: LET s.ata-i: RETURN 

3055 IF ATTR (kuy.kux)-57 THEN BEEP 1.0: BEEP l.-iO: BEEP 1.-20: PRINT AT 19, pc. 

mt" "tAT 20. Pott" "i PLOT <pos*2>*8.8: DRAW 0.16: DRAW 0.-3: DRAW -3.0: D 

RAW 10. 0: GO TO 6800 

3060 PRINT AT kuy.kuxtCHRS 157 

3090 RETURN 

3200 REM hoidar fart vad skud 

3210 IF w/2-INT (m/ 2) THEN LET tiib-1 

3220 RETURN 

5000 REM taanbor* 

5010 INK 2: FOR v-20 TO 10 STEP FOR w-26 TO 28: PRINT AT v.wtCHRS 163: NEXT 
w: NEXT v: PRINT AT 9.25tCHRS 163tAT 9.27:CHRS l63tAT 9.291CHRS 163 
5020 FOR v-20 TO 14 STEP -H FOR m- 29 TO 31: PRINT AT v.wtCHRS 163: NEXT w: NEXT 
v 

5030 RESTORE 5030: PLOT 208.8: FOR w-1 TO 17: READ xx.yy: DRAW xx.yy: NEXT w: DA 
TA 0. 8e. -8. 0.0. 8. 8. 0.0. -8. 8. 0.0. 3. 8.0. 0. -8. 8. 0.0. 8. 8.0. 0. -8. -8. 0. 0. -88. 0. 56. 23. 0 
5040 RETURN 
5500 REM ruin 

5510 FOR b-0 TO 30: BEEP .01.b: BEEP .Ol.b+lO: NEXT b 
5520 FOR w— 8 TO 20: PRINT AT m. 231" ": NEXT m 

5530 INK 2: RESTORE 3530: PLOT 248.64: FOR w"l TO 15: READ xx.yy: DRAW xx.yy: NE 
XT w : DATA 0. 15. -10. -20.-10. 13. -3. -20. -2. 5. -6. -10. 0, -8. -5. -10. 4. -2, -2. -7. -3. -5. - 
4.-6.18,10.-3.10.20.-9 

5540 PRINT AT 16.28tCHRS 1631CHRS 163tCHRS 1631AT 18.291CHRS 1631AT 20. 27*.CHRS 1 
63!CHRS 163 

5550 INK 0: PRINT SitAT 0. Ot FLASH If TIL LYKKE DU KLAREDE DEN'" 

5533 FOR c — 1 TO 2 
5360 RESTORE 3580 

5570 FOR b-1 TO 18: READ b»« d: BEEP .l.baap+d NEXT b: NEXT c 
5580 DATA 16.16.14. 12,7.0.16.16.14.12.7.0.12.12.14.14.12.12 
5590 PRINT SI tAT 0. OfVlL DU PROVE IGEN ? - TAST" 

5600 LET hOP-0 

PRINT AT 18. pos+ 1 I INK If 'MAT 19, pos* 1 tCHRS 15 


5610 IF hOP/2-lNT (hop/2) THEN 
9tAT 20.POS+1tCHRS 160 
5620 IF hop/2 OINT (hop/2) THEN 
HRS 160 tAT 20. pob+1 t " " 

5630 BEEP .05.RND*10 
5640 LET hOP"hOO* 1 

5650 IF INKEYS-"" THEN GO TO 3610 
5660 GO TO 20 
6000 REM soiar. 

6005 RESTORE 6040« FOR v-w TO w*9 

6010 IF v)20 THEN NEXT vl RETURN 

6030 READ aS: PRINT AT v. Ot INK 6laS: NEXT v 

6040 DATA " * ■ ■■ " ■■ 


PRINT AT 18. POS+1 t INK ItCHRS 161 tAT 19. pos+1'.C 


6030 RETURN 

6500 REM dat biir’ aftan 

6310 FOR P-1 TO 100.: NEXT d: PAPER 0: BORDER 0: INK 7: CLS : GO SUB 3000: INK 7* 


■ I dette sjove spil til Spectrum 
kommer du tilbage til torti- 
den. 

Du skal forscge at smadre 
computerens borg med din 
stenkaster. Programmet er til 
Spectrum 48 K.D 

Jens Ulrik Pedersen 
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PROGRAMM0RER 
TIL SOFT 


Her pi "SOFT" og "Alt om 
Data' ’ sager vl hele tiden ot¬ 
ter nye og spasndende pro¬ 
grammer til alle gcengse 
computertyper. Llge fra smd 
smarte rutlner, over spil til 
serlese brugerprogrammer. 
Alle oflentllggjorte program¬ 
mer belennes med op til 
1 000 skattefrl kroner, der ud- 
betales kort efter at bladet er 
udkommet. 

Indsend dlt/dine program¬ 
mer pdt kassetteb&nd, di¬ 
skette eller mlkrodrlve og 
vedlcBg beskrlvelse og geme 


udllstning. Programmer 
uden medsendt lagermedle 
kan lkke bearbejdes at re- 
daktlon og I6r derfor ikke 
chance for at komme 1 bla¬ 
det. 

Af praktiske grunde beder vi 
om, at du vedlcegger en 
frankeret returkuvert med ty- 
delig adresseangivelse. 

VI glceder os HI, at du kontak- 
te os. Send programmerne 
tU "Alt om Data", St. Kon- 
gensgade 72, 1264 Keben- 
havn K. rrnnrvnnnw. 






BRIGHT 1! CIRCLE 20.155,20: CIRCLE 25.168.3: CIRCLE 15,168.3: CIRCLE 20.165.3: 
BRIGHT 0 

6530 LET z*="zzzzzZZZ" 

6560 PRINT ilsAT 0. Oi" DET ER BLEVET MORKT-SORRY' " 

6550 RESTORE 6550: FOR b=l TO 16: READ beep: BEEP .4.beep: NEXT 0 : DATA 5.5,2.2. 

5.5.2.2.3.3.2.3.5.5.2.2 

6555 PRINT *1SAT 0. Os"V!L DO PROVE IGEN ? - TAST” 

6560 FOR w-1 TO 3: PRINT AT 8. 24-wS INK 65z*(w>: PAUSE 6: GO SUB 6700: NEXT w: F 
DR w-1 TO 8: PRINT AT 8. 24-w!" ": PAUSE 4: GO SUB 6700: NEXT w: PAUSE 15 
6580 GO TO 6560 
6700 REM starter 

6710 IF INKEY* <>"" THEN GO TO 20 
6720 RETURN 
6800 REM dOditar.d 

6810 FOR w=l TO 100: NEXT w: PRINT *l:AT 0. OS"DU OG DIN MASKINE BLEV RAMT 1 
"S INVERSE 1:"33 HVIL 1 FRED 33" 

6820 RESTORE 6820: FOR b=l TO 11: READ beep: BEEP .3. beeo: NEXT b: DATA 0.0.0.0. 
-4. -6.-4. -6. -4. -6. -4 


_U. - 



6830 PRINT #1 5 AT 0. Of'VlL DU PROVE IGEN ? - TAST 
6840 LET hoo-0 

6850 IF hoo/2-INT (hOP/2) THEN PRINT AT 8. 26SCHR* 159IAT 9. 26SCHR* 160 

6860 IF hop/2<)INT (hoo/2) THEN PRINT AT 8.26S"•":AT 9.26SCHR* 161 

6870 BEEP .03,RND*20: LET hoo-hope1 

6880 IF INKEY**" M THEN GO TO 6850 

6890 GO TO 20 

7000 REM fjende truer" 

7010 FOR w-1 TO 16 

7020 IF w/2-INT (w/2) THEN PRINT AT 9. 26SCHR* 159 
7030 IF w/2 <> INT (w/2) THEN PRINT AT 9. 26SCHR* 161 
7040 BEEP .01.-20: BEEP .01.-30: NEXT w 
7500 REM traek feeder 

7510 IF arm-1 THEN LET kroP-159: LET arm-0: GO TO 7530 
7520 IF arm-0 THEN LET kroP-161: LET arm-1 
7530 RETURN 
3000 REM . Osten 

8005 RESTORE 8020: FOR w-1 TO 15 

8010 READ tone: BEEP .4.tone: NEXT w 

8020 DATA 5. 10. 9. 10. 10. 12. 12. 14. 17. 14. 12. 10. 7. 5. 5 

8030 RETURN 

9000 REM sraf•k 

9005 RESTORE 9040: FOR v-1 TO 20 
9010 READ a*: FOR w-0 TO 7 
9020 READ tai: POKE USR a*+w.tai 
9030 NEXT w: NEXT v 

9040 DATA " a". 0. 0. 0. 0. 0. 0. 192. 255. "b" . 0. 0. 0. 0. 0. 192. 254. 1 

9050 DATA "c". 0. 0.0.0. 192. 240. 14, 1. "d". 0. 0. 0. 96. 96. 26. 6. 1 

9060 DATA " e" . 0. 0. 96. 96. 24. 4. 2. 1, " f " . 0. 48. 48. 8. 4, 2. 1. 1 

9070 DATA . 0. 24, 24. 4. 2,2. 1 . 1 . "h" . 12. 12. 4, 2. 2. 2. 1 . 1 

9080 DATA " i -. 6. 6.2. 2. 1, 1. 1. 1. - j ", 3. 3. 1. 1. 1. 1. 1. 1 

9090 DATA "k".3. 4, 11.22.29.6,3.0. "I ".255.0. 142.219. 117.219. 142.0 




| • HCT 

Ham CM TNay.cn 






, 184. 184. 248. 40. 40. 68 . 68. 198. ‘ 


. 56. 124.84, 124,108. 124.56.255 


9100 DATA "m". 128.64.64,64. 192. 0.0.0. "n M . 24, 24. 0.0, 0.0. 0,0 

9110 DATA "o'*. 128.64.32,27.4.8.48. 199. ”p".56, 124.85. 125.69. 125.57.255 

9120 DATA "a". 184.184. 248.40,40 . 68 . 68. 198."r". 56. 124, 84, 124. 108. 124.56. 255 

9130 DATA "s", 170, 170, 170. 255. 255. 255-0. 0, "t", 128, 128. 123.255.8,8.8.255 

9140 RETURN 

9500 REM vejiedning 

9510 BORDER It PAPER It INK 7: CL8 

9520 INK 6: PLOT 0.0: DRAW 255.0: DRAW 0.175: DRAW -255.0: DRAW 0.-175 : INK 7 
9530 PRINT AT 1,12: INK 3: FLASH IS BRIGHT 15“*B0RGEN*" 

9535 PRINT AT 10. 1S"SKYD FJENDENS BORG I STYKKER' !" 

9540 PRINT AT 12. 3S "a=V0GN TIL VENSTRE" 

9550 PRINT AT 14.3:"s-VOGN TIL HOJRE" 

9560 PRINT AT 16.3t"n-SPAEND BUEN" 

9570 PRINT AT 18. 3S "*-SKYD" 

9580 LET n*»“3 JUPPI SOFTWARE 1984" 

9590 GO SUB 9000: FOR w*l TO 21: PRINT AT 8.W+3S INK 5SCHR* 154SCHR* 155SCHR* 15 
6SAT 8. w+2S INK 45 INVERSE lSn*(w)S INVERSE OsAT 7.W+3S" "SCHR* 153: PAUSE 5: NE 
XT w 

9600 PAUSE 50: FOR w-1 TO 7: PRINT AT w, 25S" "SAT 1,25SCHR* 157: PAUSE 5: NEXT 
w: BEEP 1.-30: PRINT AT 8, 245 " ": PLOT 200.104: DRAW 0.20:' DRAW 0,-7: DRAW -5 

.0: DRAW 10.0 

9650 PRINT ill AT 0. OS"TAST!": BEEP .01.RND*30: IF INKEY*<>"“ THEN RETURN 
9660 GO TO 9650 


"SCHR* 153: PAUSE 5: NE 
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20 G0SUB30I0iG0SUB3310 

30 PR INT* J- )CMR*< 9>JCMR*< 14>lCMR*<8> 

40 PR|NT**i I RYK -OR AT* 

43 P0KE33280,0<P0KE33281,0 


30 PR|NT*B - AENDRE HESTERS NAVNE* 

60 PRINT 1 * 0 - OPTAGE LAAN* 

70 PRINT** 8 - AFBETALE LAAN* 

80 PRINT** S - SAELGE / LISTE HESTE* 

90 PRINT-a R - LOEBE NAESTE LOEB" 

100 PR INT * aV a/AVN I ’ J fT4» 

110 PR INT-B U'ONTANTERi *»PE 

120 PRINT** *_AANTi"»PL 

130 PRINT*a B*NTAL LOEB LOEBETi* » SL 

140 PR INT-a B-.NOTAST VALG • * » tG0SUB60060 . 

130 IFA*- *A■TMENG0SUB2601G0T030 
160 IFA*-*0*TMENGOSUB4IO«GOT030 
170 IFA*- *B‘THENG0SUB310 IGOT030 
180 IFA*-*S'TMENG0SUB6101G0T030 
190 1 FA*-*R'THENQ0SUB760iG0T030 
200 PR I NT 'dir i GOTO 140 
210 EN> 

260 PRINT*,** 

270 FOR I■ITO 10 ™ 

273 IFI<lOTMEt^RlNT* *II»iG0T0283 

280 PRINT 11 ^ 

283 PRINT* J*lHN*<I>*a* 

290 f*XTI IE 

300 PR|NT*a»,f«TAST .*11 G0SUB60060 

310 IFA< 10RA > IOTHEN260 |“ 

320 PR INT'B |E S TENS GAM.E NAVN ERi’IHN*<A> /r 

330 IN»UT^NOTAST NTT WVN’IHNKA) \fi— 

340 IFLEN< MN*< A > > > 12THEN»R I NT *-OR LANGTCE* • 00T0330 ^ 

343 IFLEN« HW A > )< I2THEN«N*< A )-HN*< A ) * * ‘I00T0343 
330 PRINT *-LERE AENDRINGER* I •G0SUB60060 
360 IFA*< >*J*THENPETURN 
370 G0T0260 

4io print-mtenge i bankeni*ipe 

420 PR I NT - a“T M3E LAANT I*IPL 

430 PRINT * *9, NOTAST LAAN’liOOSUB 6 OO 6 O 

440 |FABS< A)*PL >230000TMEr**RINT*-|N KAS8EKRE0IT ER PAA 230.000 KR *■GOSUB60010 <GO 
T04I0 

430 PE-PE *ABS<A >I PL-PL *ABS« A >IRE TURN 

310 PR I NT * JUT '*3E I BAN<ENi*IPE 

320 PRINT-atNOE LAANT I * I PL 

330 PR INT 'BBnNOTAST AFBETALIN3*! IG0SUB60060 

340 IFPL-ABS< AXOTMEf*»RINT*»-OR STOR AFBETAL I NO * I G0SUB600 10 IOOTOS 10 
330 PE-PE-ABS< A)iPL-PL-AB5< A)IRETURN 
610 008UBI0403 

620 PRINT"BM-NOTAST NR PAA WEST* 

630 PRINT'OER 8KAL SAELOESI * I • 009UB60060 

640 IFA-0TMEN730 

630 IFA< OORA >I00REJ< A)-0THEN6 10 

660 IFSY<A)•ITMENPRINT* IE8TEN ER SYO - INOEN VIL KOEBE OEN*iG08UB60010100T0610 
670 TL-MV< A ) -< MS' A > *3000 > • INT< RNO< 1 > • 10000«H8< A > ) 

680 PRINT*«a-ER ER BUOT* I TLI *KR . PAA * ; MN*< A > I B-A 
690 PRINT ••CCEPTERER OU OET* I iG0SUB60060 
700 IFA*'>*J*THEN720 

710 IL< B>-OiEJ< B) -0 •PE-PE *TL18Y< B >-010OT073O 
720 |FRNO< 1 >>.4TMENSY< B»-l I IL<B>-0 
730 RETURN 
760 8L-SL•I 

770 PRiNT-wjaaai oenk uoe er loebet o'iprint* *»tb*<sl> 

780 PR|NT*B1_0EBETS 8VAERHE0S0RA0• ■' IT8<8L ) 

790 PR INT■ Wi' IFOR AT UOTAOE ANDRE ME8TE.* 

BOO PR INT *U ' I ,Sm FOR AT F0RT8AETTE* 

BIO PRINT ‘^NOTAST VALO * I ■ G0SUB60060 
820 IFA*-*A*TWENOOSUB10610■Q0T0770 
830 OOSUB104031IFHL-4THEN00SUB108I0I00T0770 
833 IFHL<3AN0EM-< 8 *HL > >OTXENA*-*A * IG0T0820 
833 PRINT*J- 

840 FOR I•I TO 101A8< l>-0 . 

030 IFE J< I ) ■ I AND IL< I > • I THENAS' I > -H8< I > *8 *HE< I > • INT< RNX I ) • 10 > ■ 

860 fCMTI p 

870 F0RI-IT03 L 

873 M- INT< RtC( I > • 10 ) • I i IFE J< M) ■ 1 TMENB73 T 

080 AC< I >-T8< SL > *2 *ME< I4>-3* INT< RNO' I > • 10 > 1 

890 NEXT I y 

900 B-01FOR I•I TO 10 

910 |FA8< I > >0AN0A8< I > >A8< B>TME»«-I Q 

920 hCXTI 

930 C-OiFORI•IT03 R 

940 IFAC< I>>AC<C>TMENC •I 
930 «XT1 

933 M<INT<RND< I > • 10 > • I « IFE J< M» - I TMEN933 

960 |FAS< B) >AC< C > TMEH.S-233 i LC-233-< AS< B >-AC< C > > «2 

970 IFAC< C ) >AS< B >TMEf4.C-2331L8-233-< AC< C > -A8< 8 > > «2 

980 IFAC< C >-AS< B>TMEN4C< C >-AC< C>* INT< Rf*)' 1 > • 10 > ■ AS< B >-AS< B > * INT< RUN I)«I0>I00T09 
60 

990 IFLS-233THENSP-SP *TS< SL » 

1010 IF8P<ITMEN9P-1 ' 

1020 00SUB70I0 

1030 POKEV,20iP0KEV*2,20 
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■ Her er s6 et computer-styret 
DERBY-spil til Commodore 64. 
I spillet kan du bdde komme 
ud lor sygdom blandt heslene 
og okonomiske problemer. 
Reglerne er kort: Til hvert lob 


skal udtages 3 heste, hvis det 
er muligl. Syge heste kan ik- 
ke udtages. Etter hvert lob 
forelcegger computeren et 
regnskab med udgilter, ind- 
tcegter og den samlede ba- 


>>•2 

» >*2 

>IA8< B >-AS< B)»INT<Rr«< I>•10 >I00T09 


1410 P2-RP-RI 
1420 PRINT-* UNv-t.f or BALANCE i 
1430 PE-PE *R2 

tott tr^p^ffmmoosub 10310 


1040 POKEV*l,I93 iP 0KEV*3,193 
1030 POKEV *4.20•POKEV *6.20 
1060 POKEV*3.133iPOKEV*7,133 
1070 POKEV*16,0iP0KEV*23.0 
1080 POKEV*29,0iP0KEV*27,0 
1090 A■INT< RNO< 1)«4).| 

1100 POKEV *41,CF< I,A >IPOKEV*42.CF< 2,A > 

1110 POKEV•39,3 IPOKEV *40.0 
1120 POKEV *2 I,13 
1 130 LI-20IL2-20 
1140 LI-LI*INT<RNO< I ) *4 > 

1130 L2-L2*INT< RNC< I >i4> 

1160 IFLI>LSTMENLI-LS 
1170 IFL2>LCTMEf*.2-LC 
1180 POKEV,L1■POKEV*2,LI 
1190 POKEV *4,L2•POKEV *6,L2 
1200 IFLI-2330RL2-233TMEN1230 
1220 GOTO I 140 

1230 G0SUB600I0IPRINT*J-;CMR*<9>ICMR*< 14 >»CHR*< 8 ) 1 POKEV*2 1 ,0 
1240 IFLI-233TMENF»R INT *-|N MEST VA’il ’ aSillBr 1 HMS( B ) 

1230 IFL2-233TMENPR INT* —| \-64 MEST VAND T —■■■!- ) HN*< M) 

1260 P0KE33280,0iP0KE3328I,0IG0SUB60010 
1270 RF-|NT<PND' 1>•1000)•1000 
1280 PT-INT'.RKX 1 >• 1000) *2300 
1290 RS-INT<RNO< I >• 1000X300 
1300 RR•INT< PL »0.003 > 

13 10 IFLI-233TMENWP-INT< TS< SL >•1000*I000*RN0( l>) 

1320 IFLl' >233TMEN»P-INT< T3< SL>«3O0»RMD< 1)> 

1330 PRINT-^a* IS-OOERUDGIFTER i -1PF 
1340 PRINT** | PANSPOPTUOGIFTEPt*JRT 
1330 PRINT’B 9TAL0LEJEI * IRS 

1360 PPIUT*a -ENTER PAA LAANI * I PR 
1370 PI-RF*RT*RS*RR 

1380 PR INT*a-- 

1390 PRINT* *Af>*.E0E UDGIFTERi *IR1 
1400 PR INT * *3 “PAEMIE irOTAEGTI *JPP 


1430 PR INT-Mil RYK B-“l M00SUB60060 

1433 EM-OI FOR I•I TO 101 IFEJ< 1>•ITMENEM-EM * I 
1436 NEXT I 

1460 IFEM-3TMEN00SUB3380100SUB600101GOTO 1640 
1470 C-INT'Rf®' I >»IO«*l 
1480 IFE J< C >• I THE 141470 
1490 B*MV< C > 

1300 PRINT-jna* BANKEN MAR OUi*IPE»*KR.- 
1303 PRINT*«|-OELGENOE MEST UOBYOES TIL SALG:* 

1310 PPINT 'BB /AVN 9TYRKE TCRGI XAERDI * 

1320 PRINT-3 * » MN*< C > I * * I HS< C > > * *»ME'C>;- * ’ B 

1330 PRINT * BUF.NOTAST BUO ELLER- 
1340 PRINT-TRYK B- - l '-JM FOR AT FORTSAETTE* 

1330 PRINT*aiUO«-lIGOSUB60060I1-0 

1360 IFA-OOPA*-* -THENI640 

1363 G-B-MS' C > *800 »INT< RNO< 1 »«2000«MS<C>> 

1370 IFA >GAfOA< -PETMENI • I 
1380 IF I-0TMEN1620 

1390 PR I NT-MT' I MAR KOEBT *IMN*<C> 

1600 PE-PE-AiEJ< C)-l* IL< C >-O•SY< C >-O 
1610 G0SUB6O0IO t GOTO 1640 

1620 PR I NT * BO I T BUD ER AFSLAAE T * i G0SUB600 10 
1630 B-B »HS< C >•1000'GOTO 1300 
1640 FOR I■I TOIO 

1630 IF IL< I ) ■ I TME1*HE< I >-ME< 1 )-lNT< Rtd< I ) «4 > 

1660 IF IL< I > -OTMENME' I > -ME< 1 > * 1NT< RMK I > »4 > *4 
1670 IFHE< I X ITHENHE' I>-l 
1680 IFHE< I>>20TMENHE< I)-20 
1690 SY< I )-0 

I 700 IFRND' I > > . 9TMENSY' I >■ I ■ IL< I > -0 
1710 t4EXTI 

1720 IFSL-I0THENG0SU810 I 10 
1730 POKE33272,21 

1740 PR1NTCMR*< 9)ICMR*< 14 ) J CHR*< 8 > I RE TURN 
3010 l-RNO< -T|>«F0R!-IT010 
3020 READMN*< 1)1 IL< !>-0lSY< l>-0 
3030 TCXT! 
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Programmer: 

Samllige allrykte lislninger 
ei alprevede i®r ollentlig- 
gerelse Forlagel belalei 
skatlelrll op lil 1000 krone: 
lor godkendte iceserpro- 
grammer Forlagel har ret 111 
at altrykke godkendte pro¬ 
grammer 1 bladel og ollenl- 
hggore dem pit andre 
lagermedla 



\ 

i 

•HCT 

Ham Chi Tha»t*h 


lance. 

Hvis spillerens ekonomi 
skranter lor meget, kan spille- 
ren opt age et ldn, men der 
md selvfolgelig betales ren¬ 
ter. Ncer scesonen er fcerdig 


udbetales en scesonbonus, 
alt efter hvor mange lob spil- 
leren har vundet. Vinderen 
tdr et kys at Dronning Margre- 
the. Woww . . . □ 

Anders Mailer Sarensen 


3040 OPTP'ILUE IIKO ‘ •,* IELLOUI -PT -,-|LPCK -PCK * 

3043 0PTP-_£0 >hCIPN -.'-IPSCO -.-LOSER 

3030 OPTP'-PST - • . • I0T -OO -.--OX 

3033 0PTP-6CIENCE 

3060 OOSUB10010 

3070 P0KE33880,0iP0KE3328I.0 

3080 PRINTCHR»< 14>ICMR9<8> 

3090 INPUT 'wJMhWTAST OIT WVN ■* ) ft** 

3093 PRINT-J-i |FLEN< MN*> M2THEN3090 

3100 P" INT< RhO< I X 10 > • I • E J< P > ■ I 

3110 EH-0 IFOR I■1TO 10 

3120 IFEJ< I XITHEhCH-EN*l 

3130 hCXTI 

3140 IFEH<4TMEN3100 

3130 IFEH>4THEhC0RI-lT010iEJ< I >-0 i NEXT I IOOTOS 100 
3160 FOR I■ITO 10 

3170 REPOTBW I ) I TS< l>-INT<RND< IX 19) *2 
3180 hCXTI 

3190 OPTP’PPP 6K0VB0 I RPVBPNE *."PPP I ILLUNO I RPVBPNE * 

3200 OPTP-PPP (“DENSE I RPVBPhC * , "PPP 6 PRMUS I RPVBPNE * 

3210 OPTP-PPP -NPRl.OTTEhE.UNO IRPVBPNE*,'PPP /YKOEBING -PLSTER IRPVBPNE* 
3220 OPTP--ERBYPOERVEN* ,-PPP 6PLB0RG IRPVBPNE* 

3230 OPTP-PPP IJPEVERSKOV I RPVBPNE-ERBY■ET• 

3240 0IMCF< 2,4) 

3230 F0RI-ITO2IFORP-IT04 
3260 REP0CF<I,P> 

3270 hCXTP, I 
3280 0PTP0.6.9,14 
3290 DPTPI,7,3,4 
3300 V-33240iPE■1OOOOO 
3310 SP-0iSL-0iPL-0iHL-0«LS-0«LC-0 
3320 LI-O«L2-O<RF-0«RT-0iRS-0iRP-0 
3330 RR-0IR1-0IR2-0 
3370 RETURN 

3380 PR 1 NT" eJBBT'U KPN PGP. OE INTERNET IONPLE REGLER* 

3390 PRINT-IKKE KOEBE FLERE HESTE’iRETURN 
3310 B-0IF0R1-49I32T049194 


3320 REPDPiPOKEI,P«B-B«P 
3330 hCXTI 

3340 IFB< >3334THEfCRINT-DPTP ERROR I 3340'iENO 

3330 OPTP120,169.49,133,1,169,0,133,98,133.100,169,208,133,99,169,48,133,101 
3360 DPTP162,16,160,0,177,98,143,100,200,208,249,230,99,230,101,202,208,242 
3370 OPTP169,33,133,1.88,96 

3380 SYS49 132 i P0KE33272 ,< PEEK< 33272 >PhC240 >0R 12 
3390 B-0IFORJ■1T022 
3600 REPOOB-B*C 
3610 F0RI-0T07 

3620 REPDPiPOKE12288*I*C*8,233-P 
3630 B-B-PihCXTI,J 

3640 1FB< >2004lTHEh#»R!NT-OPTP ERROR I 3640‘iEhC 

3630 0PTP119,0,129,193,163,231,102,193.129 

3660 OPTP109,0.24,60,90,126,102,60,24 

3670 OPTPl12,0,7,13,24,48,99,196,200 

3680 OPTP127,0,128,192,97,49,133,77,13 

3690 OPTP124,0,0,234,233,131,131,131.233 

3700 OPTP108,0,0,96.112,120,109,103,98 

3710 OPTPI 13,0,0,31,119,246,182,34.33 

3720 OPTP 123,0,0,248,232,4,0,0,248 

3730 OPTP123,0,0,207,207,204,204,204,207 

3740 OPTPI 16,0,0,231,231,102,108,102,231 

3730 0PTP98,0.0,243,243,31,31,31,243 

3760 OPTPI 17,0,0,240,240,0,0,0.240 

3770 OPTP97,200,196-99,48,24,13,7,0 

37B0 OPTP118,13,77,133,49,97,193,128,0 

3790 OPTP103,233,131,131,131,131,131,0.0 

3800 OPTP106,96,96,96,96,96.96,0.0 

3810 OPTP121,31,48,48,32,33,31,0,0 

3820 OPTPI 11,232,12,18.12,232,248,0,0 

3830 OPTP107,207,192,192,192,192,192,0.0 

3840 OPTP114,231,102,102,102,103,103,0,0 

3830 OPTPI 10,243,48,48.48,243.243,0.0 

3860 OPTP120,840,48,48,48,240,240,0,0 

3870 B-01 FOR I-704T0766 

3880 REPOPIPOKEI,PiB-B*P 

3880 hCXTI 

3900 IFB< >3923THEhF»RINT-0PTP ERROR I 3900'iEND 

3910 OPTPO,0,0,0,0,0,0,0,0.0,2,0,0,1,0,0,0,224,0,0.240,0.1.144,0,1.240.31,233 
3920 DPTP208,127,233,208,191,233,192-19 1,233,192,139,233,128.I 32,4,0,2,2,0,1,I 
3930 OPTPO,2,2,0,4,4,0,8,8,0,0,0,0 

3940 8-OI FOR I•832T0894 
3930 REPOPIPOKEI,PiB-B‘P 
3960 hCXTI 

3970 IFB< >997TMEh#*R INT-OPTP ERROR I 3970*iEN0 

3980 OPTPO,0,0,0.16,0,0,36,0,0,16,0.0,32.0.0.104,0.0.244,0,0.192 ,0.1.128,0,0.64 
3990 OPTPO,0,32.0,0,16,0.0.32,0,0,64,0.0,0,0,0,0,0.0.0,0.0,0.0,0.0.0.0,0,0,0,0.0 
6000 P0KE2040,11IP0KE204 1,I3IP0KE2042,11 IP0KE2043.13 I RETURN 
7010 POKE33278,<PEEK<33272 >PN0240 >0R12 

7020 P9-*- 

7030 8*-- iiiimuuiuumiiuuuuumimu' 

7040 C6-- • r*» ’ I mi -I09--| I I 

7030 PRINT-J-« 

7060 P0KE33280,I0IP0KE3328I.10 
7070 F0RI-ITO3 

7080 P-INT<RND< I X13>•IiP0KE846,PIIFP-I00RP-3THEN7080 
7090 PRINTP9I 

7100 P-INT<RNO< I>•13 > * I IP0KE646,PI IFP-I00RP-3THEN7100 
7110 PRINTS*! INEXT I 

7120 PRINT-0*>C*lC6lC*lC*!0*l0*l0*l0* 

7130 FOR I-2T0131 POKE 1433.I*40,101iP0KE33727.I*40,1i hCXTI 
7140 RETURN 

100 10 F OR I ■ I TO 10 

10020 MC< I )• INT< RND< IXIOXI 
10030 HS< I > - I NT< RNO< IX3XI 
10040 MV< I>-H8< I)*20000 
10030 T8< I > • INT< RhC< 1X19).2 
10060 NEXT I 
10070 SL-OiRETURN 

101 10 PR INT-^JBi-TPBr lOI'BtPESOhCN ER SLUT.* 

10120 PRINTTPB< 10)’-U SCOREOt * I 8PI -SPESOhCO INT8 . • 

10130 IF 8P >130 THE hB -300 
10140 IF8P >IISTHEhB-130 
10130 IF8P >100 THENB-120 
10160 IF8P >70TMEhB-100 
10170 IF8P>30THEhB-70 
10180 IFSP<-30THENB-30 

10190 PRINTTPB< IO>-«r*IN 8PE80NB0NUS ER ■•10*1000 
10200 PE-PE*8*1000 

10210 PRINTTPB< I0)-| RVK *_“1 ' 009UB60080 

10820 PR INT-J- 

10230 OOSUB10010 

10240 SP-OiSL-O 

10230 RETURN 

10310 PRINT-J-TPB< I0>*H2-U ER OPPET FPLLIT* 

10320 PRINTTPB< 10>*B/YT SPIL •»i008UB60060 

10323 PRINT-J-l 

10330 IFP*--J*THEM»UN 

10340 |FP*--N-THEr2»0KE33280,I4IP0KE3328I,6iEN0 
10330 00T0I03I0 

10403 PRINT-JBB.I UOTPOET Si SYO«- 

10410 HL-0i8-0iPRINT-m^*VN-TPB< 13)-/T» 6TYRKE “TCRQI XPEROIU" 

10420 EH-IOIFOR 1-1 TO 10 

10430 IFE J< I )-OTHEhCH-EH- I lOOTO 10330 

10440 PR I NT -||" I MN*< I )» I IF |L< ! > • I THEh*4L-HL » I 

10430 IF I < lOTWEhBRINT- • 11 I GOTO 10470 

10480 PR INTI I 

10470 PRINT- *HS< I»I 

10480 IFME< I X IOTHENPRINT- * IME< I>I I GOTO 10300 
10490 PRINT* -HE< 1)1 

10300 IFMV< I X lOOOOOTHEhBRINT- * I HV( I > I IOOTO 103 10 
10303 PR I NTHV< I >1 

10310 IF IL< I >- IPNOSY< 1 )-OTHEN»RINT-« L*l 
10320 IFSY< I XITHEfBRINT-B S’! IS-S*I 
10323 PRINT 
10330 NEXT I 

10340 PRINT’■■BftNTPL HESTE OER ER UOTPOET *IHL 

10330 RETURN 

10610 OOSUB10403 

10620 IFHL<-3THEN30SUB10710 

10630 IFML-4TMENG0SUB10810 

10640 IFP*-•*PhOP-0THENI0610 

10630 RETURN 

10710 PRINT-^^hOTPST h« PPP NEST- 
10720 PRINT-OER SKPL LOEBE * I < G0SUB60060 
10730 IFP > 1QQRP< OTHENPR I NT • mm * I GOTO 107 10 
10740 IFP-OPNOP*-"“PNDHL-3THEN10790 

10730 IFEJ<P)-OTMEh»»RINT--U EJER IKKE OETTE h*». • i G0SUB600 10«GOTO 10790 
10760 !FIL<P>-1THENPRINT- IESTEN PLLEREOE UOTPOET.• 1 GOSUB 6 OO10lOOTO10790 
10770 IFSY< P)-lTHEhF»RINT- IESTEN ER SYG . • i 00SUB600 101 OOTO 10790 
10780 IL< P X1 
10790 RETURN 

10810 PRINT-«2,N0TPST NR PPP HEST- 

10820 PRINT-OER SKPL STPP OVER'fIGOSUB60060 

10830 IFP<-OORP >IQTHEhBRINT * fTTV I GOTO 10810 

10840 IFEJ< P >-OORSY< P >■10RIL< P >-OTMEhBRINT*6IOOER I FORVEJEN OVER.'iG0SUB60010■G 

OTO10860 

10830 IL< P >-O 

10860 RETURN 

60010 FORI-ITOlOOOlhCXTI 

60020 RETURN 

60060 I ■ i P*- * • l P-01 IhBUT I • 

60070 P-VPL< !•>IP6-LEFT6C !*,!> 

60080 RETURN 
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Fakultet 



I dette Commodore 64 mate- 
matik program (dr du bereg- 
net fakultet af et stort tal Prog¬ 
ramme! benytter sig al logarit- 
mer til beregningen. 

1 linie 70 delineres titals logarit- 
men, som ikke (Indes som 
standard (unktion pd de tleste 
computere. 

Linierne 80 og 90 nulstiller de 
variabler. som bruges til at 
summere de beregnede tal. I 


linierne Ira 100 til 140indtastes 
og undersoges det tal. som la- 
kultet onskes beregnet af. 
Hovedlokken ligger fra 200 til 
240. Den beregnede vcerdi 
omskrives og udskrives i linie 
300 til 410. Fejludskrilterne lig¬ 
ger fra 1000 til 2000. 
Programmet kan let omskri¬ 
ves til andre maskiner.D 


Torber Bang 


COMMO 

DOGt 

64 


10 PRINT"J": REM *** SLET SKftRM *** 

20 PRINT 
30 PRINT 

40 PRINT” FAKULTET MED STORE TAL” 

50 PRINT 

60 PRINT — 

70 DEF FN L10<X)=LOG<X)/LOG< 10) 

80 EXSUM=0 DOR€ 

90 MANSUM=0 64 

100 INPUT” 1NDTAST N "; N* 

110 IF N*= "STOP" THEN END 

120 N=VAL<N$> - 

130 IF N < O THEN 1000 wWW B 

140 IF N < > INT(N) THEN 2000 
150 PRINT 

160 PRINT “ TAL OK BERE6NINGEN BEGYNDER NU” 
170 PRINT 

180 PRINT" VENT ET 0JEBLIK" 

200 FOR X = 1 TO N 
210 L = FN L 10< X ) 

220 EXSUM»EXSUM+INT<L) 

230 MANSUM=MANSUM+L-INT<L) 

240 NEXT X 

300 EX= EXSUM+INT< MANSUM) 

310 MAN=10t<MANSUM-1NT<MANSUM)) 

320 MAN*< INT< MAN*10000+0.5)>/10000 
400 PRINT 

410 PRINTN)"FAKULTET = ";MAN;" E "JEX 
500 G0T050 
1000 PRINT 

10lO PRINT" ULOVLIG VURDI N SKAL VffRE POS.“ 
1020 G0T050 
2000 PRINT 

2010 PRINT" ULOVLIG VfERQ I N SKAL VffRE HEL TAL" 


Amrace 


■ Amrace er et racerbilsspil 
for to korere. Korer 1 styrer 
med X og Z. accelererer med 
C og bremser med V. Korer 2 
styrer med . og , accelererer 
med / og bremser med \ . 
Hver gang man har kart en 
omgang. fdr man et point. 
Hvis man korer ind i kanten, 
skal man starte forfra. Selve 
korslen foregdr meget mere 
naturtro end scedvanligt da 
bilerne udnytter Amstrads 
mulighed for at kore fra pixel 
til pixel. I stedet for det sced- 
vanlige - et tegn eller 8 pixel. 
□ 

Claus Thorsen 


AMSTRAD 


2. del 



460 1 >= 

y.y.y.y.y. " " " 

yx/x y. 

470 a*<2 >= 


y.y.y.y.y.y. 

yxxxy.y. 


y. 

y.y.y. 


y.y.y.s 

y.y.y.y 
y." 

4S0 

"•/.y.y 

3 >= 

; y.y.y.y.y.y. 

yxxxxxxxxxxx 

wwwv 

y.y.y.y.yxy.y: 

y.y.y: 

'/.y.y. 

S. s. 



y.y.y. 

y.y.y. 

yxxwx 

y.y. 

y.y.y.y.y.y.y. 

y.y.y. 

y.y.y. 

y.y.y.y.y.>: 

V 

• ■ 

r/.y.y.y.y. 

y.y.y. 

y.y.y. 

y.y.y.y.y.y. 


y.y.y.yy. 

y.y.y; 

y." 

490 

"VV 

3.%< 4 )= 

y.y.y-: 

y.y.y.y; 

y.y.y. 

y.y.y. 

y.y.y.y. 

y.y.y.y.y.y. 

y.y.y; 

'/XX. 

yy.y.y 

: y.y. 

yxxxxxxx 

V m 

y.y.y; 

y.y.y.y 




y.y.y.y. 

•/.y.y.y 

'.y.y. 


y.y.yx 


500 ?.$( 5 :•= 


2020 G0T050 


" y.y.y.y.y.y. yx'/x.'/xx. y.y.y.yx'-xyx y. y. y.y.y.y.y. 

'&XXXXXXXXXXX/XXXXXXXXXXXXXX.yx/XXXXXXXXX. 
y. y. y. ■ y. >. y. y. y.yxy. ‘/x y. y.'■; y. ■; y. y.'; y. y. y; y.y. y. ■; ■; \ \ y.y. 

y." 

510 CLS 

520 PEN 1 FOR x=l TO 5 PRINT .?.$<:<>; ; NEXT 
530 RETURN 
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1. del 



5 OEFINT R-Z 

1@ SYMBOL AFTER 32 

15 SYMBOL RSC< >, 255.255,255,255.255,255.255.255 

20 SYMBOL 255,fcX11011011,&X11111111,8.X11011011.&X11000,fcX11011611,8.X11111111,8.X1 
1011011,&X11000 

30 SYMBOL 254,S.X11000,&X1101100,8.X1110000,&X10111011,&X11011161,8.X1001110,&X1011 
1.&X11010 

46 SYMBOL 253,8.X11101116,8.X11101116,8.X1000160,IX11111111, S.X11111111, SX1600100,S.X 
11101110, 8.X 11101110 

50 SYMBOL 252,8.X11010,.1X10111,1X1601110,1X11011161,1X16111011,1X1116006,1X110116 
0,1X11000 

66 SYMBOL 251,1X11600,1X11611011,1X11111111.1X11011011,1X11606,1X11011011,1X1111 
1111,1X11011011 

76 SYMBOL 250,IX1011000,IX11101000,IX1110616,IX10111611,IX11611101,&X1110,8.X1101 
10,8.X 11006 

86 SYMBOL 249,8.X 1110111,8.X 1116111,8.X 160010, &X11111111, &X11111111, &X 100010,&X1116 
111, 8.X1110111 

96 SYMBOL 248, &X 11000,8.X110110,8.X 1116, &X 11011101,8.X 10111011, &X 1110010,8.X 11101000 

, 8.X 1011 000 

110 INK 1,9 

120 MODE 1 

130 GOSUB 456 

140 RESTORE 166 

150 FOR i=l TO 8 READ x(i),»<i)=NEXT 

166 DRTR 0,1,1,1,1,6,1,-1,0,-1,-1,-1,-1,0,-1,1 

170 x1 =22* 16 >a 1=13* 16+4 retnin91=7*x2*22* 16 = »2= 12* 16 • retn 1 w92*7 * fart1 = 1 * fart2 = 1 

180 LOCRTE 1,1*ox 1=352 * o»1=268 * 0x2=352 * oa2=268 

190 WINDOW#1,15,30,16,10*PEN#1,2* TAG 

260 WINDOW#2,1,40,1,1 

205 PRINT CHR*<22>;CHR*< 1 >j 

216 vinder1=0 * vinder2=6* MOVE 21*16,460-11*16 * DRAW 21*16,466-15*16,2 
220 WINDOW SWAP 1=CLS PEN 3*PRINT Point 1j*PEN 2*PRINT Points * WINDOW SWAP 1 
230 WHILE INKEY*<>""* WEND 
246 A*=INKEY* 

256 IF ?.*="." THEN reinin91 =retnin91-1=IF retnin91 =0 THEN retnin91=3 

266 IF •?.$="x" THEN retnin92=retnin92-l = IF retnin92=0 THEN retnin92=8 

270 IF THEN retnin9l=retnin9l+l* IF retnin91=9 THEN retnin9l=l 

286 IF a*="z" THEN retnin92=retnin92+l* IF retnir.92*9 THEN retnin92=l 

290 IF INKEY<62)=0 THEN fart2*fart2+l 

300 IF INKEYY 55 )=6 THEN fart2=fart2-l 

310 IF INKEYv30 >=0 THEN fartl*fart1 + 1 

320 IF INKEY<22>=0 THEN fart1-fart 1-1 

330 x1=x1+x<retnin91 )*fart 1 * a 1=y1-a <retnin91)*f ar11 

340 x2=x2+x< retniri92 )*fart2 * a2=y 2-a< retni n92 >*fart2 

376 IF TESTCxl.al>=1 OR TEST<xl + 15,a 1-15>=1 OR TESTCxl,a 1-16)*1 OR TEST<xl + 16,a 1 
>=1 THEN SOUND 1,0,200,4,1,1,1> WHILE SQ<1>>127 * WEND * vinder2=1 

380 IF TESTC x2, a2 >=1 OR TEST< x2+15, a2-15 >= 1 OR TEST*: x2, a2-15 )*»1 OR TESTY x2+15, a2 
>=1 THEN SOUND 1,0,260,4,1,1,1 *WHILE S0<1>>127 = WEND = vinder1 = 1 
385 IF virider 1 = 1 OP vinder2=1 THEN 433 
396 MOVE oxl.oal PRINT » 

460 MOVE ox2,oa2*PRINT " 

420 PLOT x 1, a 1,3 * ox 1 =x 1 * oa 1 =a 1 PR I NT CHRS* 256-retn i r.91 )i 
436 PLOT x2, a2,2 * ox2==x2 * oa2=a2 * PRINT CHR*< 256-retni n92 ); 

431 IF x1+ABSY fart 1>>21*16 AND x1< =21 *16 AND a 1< 460-11*16 AND a 1>400-15*16 THEN 

IF fart1*x1< =0 THEN vinder2=1 * SOUND 1,206,36 * GOTO 435 ELSE Point1 **Point1 +1 * WINDO 
W SWAP 1•CLS = PEN 3*PRINT Pointi;*PEN 2*PRINT Point2;* WINDOW SWAP 1 

432 IF x2+RBS<fart2»21*16 AND x2<=21*16 AND a2<466-11*16 AND a2>406-15*16 THEN 
IF fart2*x2<=0 THEN vinder1=1 * SOUND 1,260,36*GOTO 434 ELSE Point2=Point2+l WINDO 
W SWAP 1 CLS* PEN 3* PRINT Po inti.** PEN 2* PRINT Point2.* * WINDOW SWAP 1 

433 IF vinder1 = 1 AND vinder2=1 THEN x1=22*16 * a 1 = 12*16 * retnin91=7* fart1 = 1* x2=22*1 

6 * a2= 12* 16 * retnin92=7 * f art2*= 1 * Poi nt 1 =Po i nt 1-1 Polnt2=Poi. nt2-1 * GOTO 216 

434 IF vinder1 *= 1 THEN x2=22*16 * a2=12*16 *retnin92=7* fart2=1 * Point2=Point2-1 GOTO 
210 

435 IF vi nder2= 1 THEN x 1 =22* 16 * a 1 = 13* 16+4 retni r.91=7* fart 1 = 1 * P 0 i nt 1 =Po i nt 1 -1 * GOT 
0 216 

440 GOTO 240 
456 DIM a$<25> 
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■ Masterfile er navnet p6 det- 
te kartoteks-program. Det star- 
tes med en hovedmenu, 
hvoriia resten af programmel 
kan kores. Det er selvforkla- 
rende da man bare taster det 
ind. programmet sparger om. 
Filerne som indeholder den 
indtastede data (navn+firma 


+disk nr. pd et program), kan 
save'es pd diskette men pro¬ 
grammet kan konverteres til 
tape. 

Her lolger en kort beskrivelse 
af de let-overskuelige proce- 
durer som er brugt i Masterfi- 
le:D 

Christian Ravn 


Masterfile 


lint# 10-99? i Selve hovedprogrammet som kalder d« pagelende procedurer. 
lint# 1000-199? i Proem ItUrir indtastningen af data. 

lime 2000-299? : Procout klarer udskrivmngen af data pa alarm eller 
printer. Der sporges om hvilket data der skal udskrives.<navn/firma 
/disc/alt) 

lime 3000-399? i Procsave sorger for at filen kan blive gemt pa diac. 
lime 4000-499? : Procload sorger for at filen kan blive hentet fra disc, 
lime 3000-599? i Procaort aorterer filen enten kun efter navn. eller 
efter navn/flrma/diac med disken aom l.pnontet falende til navnet. 
lime 6000-699? i Procauit atopper programmet for altid (IFX200.2). 
lime 8000-899? : Procnen vil initialiser# en ny fil.Det si al du altid 
gore inden du aave’r en NY fil. Ikke nodvendigvis hver gang du save'r. 
lime 9000-999? i Procinit klarer bare nogle enkelte variable, 
lime 10000-109991 Procmenu aknver hovedmenuen ud. 

lime 11000-1 l?9?»Proctoo aknver A4 ud oa en s.ov made cverst oa skermen 
nar der er brug for det. 

lime 12000-1299? i Proc swap laver en trekantaombytmng af to aet data. Den 
kaldes l sorteringsrutinen. hvor den bliver brugt mange gange. 
lime 13000-13???! Proc border tegner et blat felt i mode 7 alt efter de tal 
den far derfra hvor den er kaldt. 

lime 14000-14???! Proc apace venter pa Space-Par. hvorefter den korer til 
hovedmenuen. 

lime 15000-15???! Proc delete vil kunne alette et indtaatet program i 
filen. 

lime 16000-16???! Procpr inter sparger om pnnteren skal bruges og i 
bekraftende fald om det er parallel eller serial ♦ hvllken baud-rate. 
linie 17000-17???! Proc tab udsknver navn*firma+disc tilharende det tal som 
folger med ned l proceduren. pa en pen made. 

lime 18000 - 18 ???!Procammend helper dig med at rette i en indtaatet fe.,1. 
lime 19000-l????:Procnewl me venter oa tast fra Space-Bar men retunerer 
ikke til menuen men den mod fortaetter kun. 
lime 30000-30???!Procfejl aknver den fe..l du har begaet. 


Christian Ravn 


• P£M Ma»t»r«:le Bv R*.»n*oft «C* 

• feu- 

:• pem 

» MODE 7 

) 

• PP0CIN1T 

J ON EPP0P PPOCFEJL 

> PPOCMENU 

> PEPEATG-GE T-48:UNTILG.0ANDG !0 

> OH & 60SU& 120.130.140.130.160.170.180. 190. 200 ELSE PFOCFEJL 
: &PT0 90 

> PPOCOUT:RETURN 

> PPOCAMMEND l RETURN 

> PR:OC DELETE! RETURN 
PROCLOAD: RETURN 

> RRrOCSAVE: PE T URN 
PP0CHEW:RETURN 

• PR.0CS0RT: RETURN 
P PROCIN:PETuPN 

> PP0C0UIT:RETURN 
C 1 END 

» REM-- -- 
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1000 DEF PROC IN 

1010 PROCTOP 1 "INCTASTNING"' 

1020 RX-MAXX 

1030 PRINTTAB(3.11):SPC136)iTAB f 3.19): SPC <20* 

1040 f:X-RX*l 

1090 PRIHTTABlO. 10? i“ HAW F1PMA DISK" 

1060 INPUTTAB'3.11) i “"NAME* (F:X!: TAB*. 1°. 11) i""FIRH*1RX>|TA6(32.11) t""DISCXCRX) 

io?o maxx-maxx*: 

1080 PRINTTAB!3. 18.*:"En til’’ "IiG*"GET«i IF G*«"J" OP G*-"," THEH 1020 ELSE IF G*-"N" OP 
G*«"n" Of ASC(G*>-13 THEN 10°0 ELSE 1080 
1090 EMDFFCC 

1999 ft£M-- - - - 

2000 DEF PF.OCOUT 

2010 PROCTOP' "UDSkPIFT” ? 

2020 IFMAXX-0 THEN PPINTTAB!10.10H "Fi len or lom 1 "IG0T02210 
2030 PROCBORDEICIO.IO.16.5) 

2040 RRINTTAB<13.11)|"ALLE.1" 

2050 RRINTTAB'll.12>I"FRA MATH..2“ 

2060 PPINTTAB'13.13!I “FRA FIFMA.3” 

2070 RRINTTABf13.14) j "FRA DISK..4" 

2080 REFEATG«GET-48:UNTILG 0AMD6 5 
2090 FLX-0 

2100 A*-"ALLE NAVNEFRA NAVNFRA FIPMAFRA DIS» " 

2110 A«-M!D*'A*.6110-9.101 
2120 PROCTOR'All 

2130 IFG ITHENRRINTTAB' 10.10‘ iRIGHT* tAt. Si I.. 16.1011 B*ELS£B*-ChR* (27) 

2140 PF:OCF'f: INTER: PF:I NT TAB t4!: "NAVN" i TAB'201 ; "FIRMA"; TAB (35i: "DIS) " 'STRING* ( 3°." _ *) I 
2150 F0RLX-4T0l9iPR!NTTAB<0.LX)iSTR!N&*<40.- ”1*1 NEXTifRINTTAB <0. 3>: : FOF LX-1 TO MAXX 
2160 IF B*-CMR*'2?) OP (LEFT* (NAME* (LX) .LENB* ' -B* AND 60 OP (LEFT* <F 1RH* (LX) .LEHI*> ■ 
B* AND G-3) OP <VALB*-DISCX1LX)> THEN PRINT TAB(3-LEfl<STP* <LX) > 1 iLXi iRPOCTAB(LX) iFLX-FLX* 

I 

2170 IFto* -J" AND FLX-lo THEN PRGCNEWLINEiFLX-OlRRlNTTABlO. 3): 

2180 NEXT LX 
2190 VDU 3 
2200 »b*"“" 

2210 PROCSPACE 
2220 VDU3 
2230 ENDPROC 

2240 PEN- -------- - 

3000 DEF RROCSAVE 

3010 PROCTOP<“GEN FILEN"► 

3011 FlLE*- H -jST«OiPPINTTAB(tO.10M-NAVN i'i:PEPEATG-GET 

3012 IFG -65ANDG • 12&ANDST ’THEN7DUGiF1lE*-F1LE*«CHR«GiST-ST.I 

3013 IFG-12’THENVD0G:FlLEI-LEFTI(FlLEt.(LENFILE*-!!) iST-ST-1iIFST —ITHENST-Oi VDU32 

3014 UNTILG-13 
3<»30 XX-OPEN(JP(FlLE*) 

3040 CX-0 

3050 PRINTiXX.HAXX 
3060 REPEAT 
3070 CX-CX*1 

3080 PRINTBXX.NAME* (CX) .FlPNt (CX). DISCX(CX) 

3090 UNTIL CX HAXX 
3100 CLOSEUXX 

3110 PRINTTAB<3.22)|"Filen get. "i l-INKEVCOO) 

3120 ENDPPOC 

3®°9 PEN- ------ - 

4000 DEF RROCLOAD 

4010 PROCTOR("MENT FILEN”) 

4015 PF:lNTTAB( 10.10) l "Fi lnavn'’ 

4020 FILE«-””i8T-0iR£PEATG-GET 

4021 IFG -65ANDG -126ANDST 7THENVDU&lFlLE*«FlLE*«CMP*GiST-ST.| 

4022 IFG-127TMENVDUGiFlLE*-LEFT*!FlLEt. (LENFILEI-I) UST-ST-li 1FST— ITMENST-OiVDU32 

4023 UNTlLG-13 

4024 VDUG 

4030 XX-0»ENUP(FlLE*) 

4040 CX-0 
4050 1NF-UT*XX.NAXX 
4060 REPEAT 
4070 CX-CXM 

4080 I NRUT ■ X 7 .. NAME « ( CX.) . FI PH* I CX I . DISCXI CX 1 

4090 UNTIL CX HAXX 
4100 CLOSE*XX 

4110 PRINT TAB (7,22) l “Fi len ”FILEI“ hentet.'l l•IN^EV(3< , 0^ 

4120 ENDPROC 

499° REM- ------------- 

5000 DEF PROCSORT 

5010 PROCTOR'“SOPTERING”) 

9020 IFMAXX-0 THEN PPINTTAB' 10.1011 "Fi len or tom’"iI-lN) E/I<3C0)(ENDPROC 
5030 PRINTTAB(9.24»|”Prior»t*t' , TAB(20)|“A.. ,DIS) /FIRMA/MAVN. “TAB 120) l ”B.. .1 UN EFTER NA 
VN" 

5040 l-l 
5050 IFXI5.1 

5060 GI-GETIi IFGI-’B" THEN 5250 ELSE IF G*-"A" THEN 5070 ELSE G0T05C60 
5070 PRINT' "DISl /FIRMA'NAVN. “* TAB'.5,19) | "*♦ "iMAXX 
5080 FOPFX-ITONAXXl1/3'IPPINTTAB<0.19)11NT <<) 

5090 F0FNX-1T0FX 

5100 IF DISCX(FX) DISCXUIX) THEN PFOCSwAP 

5110 NEXT 

5120 NEXT 

5130 FOPFX-ITOHAXXi I -f•(1/3)IPPINTTAB(0.19)iINT( i ‘ 

5140 FORNX-ITOFX 

5150 IF FIPNKFX' FIPM«‘NX’ AMD DISCXIFX!-DISCXINX) THEN PFOCSWAF 

5160 NEXT 

5170 TEXT 

5180 FORFX-1 TONAXXl•(1/3: (PRINTTAB' :'. 19) i INT'.f 
51°0 FOF:NX*ITOFX 

5200 IF NAMEllFX) NAME*(NX) AND FlPMt'FX)»FIRMI<NX) AND DISCXIFX)-DISCXUIX) THEN 

CSMAP 

5210 TEXT 

5220 NEXT 

5230 PRINTTAB'3.22)i"Filen Sorteret.“i1-If* E«'300) 

5240 ENDPROC 

5250 PRINT* "1 of* n«vn.”'TAt<5.19) i“*P "|MAXX 
5260 FORFX-ITOMAXXlPRINTTAB'0.1°) |PX. 

5270 FOfNX-ITOFX 

528<‘ IF NAME* (FX) NAMEt (NX) TKNPFOCSWAF 
5290 NEXT 

5300 NEXT 
5310 ENDRROC 

5999 REM. 

6000 DEF PPOCQUIT 
6010 PPOCTOP'“SLUT - ) 

6020 PRINTTAB(10.10)l "Vi 1 du virldig xtoppp “nOUlTt-GETI 

6030 1F0U1T«»-1-TMENIFGET*»"3’ 7MENIF6ET1- -TmENIFGETIt";-THENIFGETI*- c'• hEnIFGC:*- *••TH 
EN6080 

6040 IFQUITfJ” THEN CALL ' tFFFC 

6050 1FQUIT*«”N“ THEN ENDPROC 

6060 GOTO 6020 

6070 ENDPROC 

6080 IFX200 

6090 CLS 

6100 STOP 

6110 ENDPROC 

6999 REM--- 

0000 DEF PROCNEW 
8010 

8020 PROCTOPCINITIALISERS EN NY FIL”) 

8030 FILE* B ”“iST"0iPR]NTTA8fI0»!Q? *"NAVN* ”•‘BEPEATG-GET 

8<-7l IFG «65ANDG •126A#IDST 'iHEri’.XUGiFlLEI'FlLEl *CHF !Gs; T - £*♦ j 

8032 IF6»l2'TMEN , . , DUGsFlLE*»LEFT»’FILE*. (UEIEILEI- 1) • sST^ST- ]: IFS T- -1TMENS’ - •:VLU32 . 

8033 UNTILG-13 
8040 XX»DPEN0'JT<FILE*1 
8<-5-' CL0SE8XX 

K'6«. PRINTTAB13.22):"Fil#n lnit»*lisof *t. *s I*IW E-'3<“i 
8D-v ENDPROC 

89°° REM.. 

°->0v DEF f ROC INI T 

9(*I0 DIM NAME! i2'>:“ .FlFHf 2 ■ ! '. DISC*.' 1 ! ' 

9920 HAXX"'.*!P:X»Oi so* ■ ”N" 


9030 IFX200.2 
9040 ENDPROC 

9999 REH--- 

10000 DEF PROCMENU 
10010 

10020 RROCTOP("MENU") 

10030 PROC BOR DEF: (9,6,20,10) 

10040 RRINTTAB(12,7);"UDSKRlV FILEN..1” 

10050 PPINTTAB(12.8)j"RET FILEN.2” 

1«>6<' RRINTTAB< 12,9) | "SLET INDTAST... 3” 

10070 PPINTTAB! 12.10) | "HENT FIL.4” 

10080 PRINTTAB! 12.11) | "GEM FIL.5” 

10090 PRINTTAB(12,12)|“LAV EN NY FIL..6” 

10100 PRINTTAB!12,13)s"SORTER FILEN...7” 

10110 PRINTTAB(12,14)i”INDTAST NAVN...8” 

I0I20 PRINTTAB! 12.15) | "STOP.9" 

10130 ENDPROC 

10999 REM----- 

11000 DEF PROCTOR(«t> 

11008 VDU3:CLS 

11010 FOR IX-0 TOliVDU69D81:L8D8311 PRINTSPC116-LEN** DIV2 > **iCHR*1401NEXT 
11020 ENDPROC 

11999 REM.. 

12000 DEF PROCSWAP r 

12010 D1X>DISCX(FX) 

12020 Fl*-F1RM*(FX) 

12030 hi t- name*<FX) III Prooramm^r: 

iSS S'.Si'.S'.S'.SS |JI Samtlige altrykte listninger 

i:o6o NAn£«iF?.i-NonE«(Nw 1^™ er alpravede I01 ollenthg- 

iroao FiRTi,(N7.i. fi, II gKrelse Foilagel betaler 

IJJJJ enofrqc ?i ' H " skaltefrit op 111 1000 kroner 

i!w r£h- -. ill lor godkendte lceserpro- 

/J orammer.Fonagetharremi 

1:020 vcuji,«,H, i32,i5j.i:i.ji.«•#,«,i» l| at altrykke godkendte pro- 

'i»*o enoftoc IL- grammer i bladet og ollenl- 

Skf"™. 1 liggore dem pd andre 

uooi voo: |ll lagermedia 

14005 !Fcp*-"J" THENENDRROC 

14010 RR!NTTAB(8.23)|"TAST SPACE-BAR FOR MENU" ' 

14020 FLX-OiREPEAT 
14030 F0RLX-129T0135 

14040 IFINK8Y-99 THEN LX«135iFLX«l 

14050 PRINTTAB(2,23)CHR*(LX)| 

14060 I"INKEY(10)I NEXT 

14070 UNTILFLX-1 
14080 ENDPROC 

14999 REM- ------------- 

15000 DEF PROCDELETE 
15010 PROCTOR l "SLET") 

15020 IFMAXX-0 THEN RR|NTTAB<10,10)I"FILEN ER TOM'"iGOTOISl10 
15030 INPUTTAD(0,7)|-MV1DET INDTAST S».AL SlETTES i'DE 
15040 PROCTAB(DC 1 

15050 PRINT*"ER DET DETTE *'"nG*-GET* 

15060 IF G*-"N" THEN 60T015030 
15070 FORL-DE T0HAX7, 

15080 NAME*(L)-NAME*<L«I)|FIRM*(L)-FIRM*(L*l> 1 D1SCX(L)-DISCX(L*1) 

15090 NEXT 
15100 MAX X-MAX 7.-1 

15110 PRINTTAB<3,22)1"F1l*n Slcttvt."i1-If#EYC300) 

15120 ENDPROC 

15999 REM. 

16000 DEF PROCPRINTER 

16001 PRINTTAB(3.8)1“Pa* Printer n "| iSP*»GET*iIFSR*-"N"ORSP*-" n"THCNRRlNTTABC.8)|SPC(2S> 

1 TAB(0,1)11ENDRROC 

16010 IF SP*- '"J-ANDSRI THEN I600<> 

16020 •p*-"J"iPRINTTAB(3.8>|"P*r*ll*l o \. -| iSP*-GET«i |FSPI*"P'"0PSP*-"p-TXN165OC 

ELSE IF SP*»"S"ORSP*-”*" THEN 16030 ELSE 16020 
16030 IFX5.2 

16040 D^UTTAB(7,8)I"HviIk on btud-roto *|SPX 

16050 IF SRX 75ANDSP7. 150ANDSRV. 300ANDSPX. 1200ANDSPX. 2400ANDSPX XBvOANDSP*: 9600AND 
8PX . .'19200 THEN 16040 
16060 IFBPX-75 T)CN IFXB.I 
16070 IFSPX-150 THEN IFX8.2 
16080 IF8PX*300 T)€N IFX8.3 
16090 IF8PX-I200 T)€N IFX0.4 
16100 IFSPX-2400 THEN IFX8.5 
16110 IFSPX-4800 THEN IFX0.6 
16120 IFSP7.-9600 THEN IFXB.7 
16130 IFSPX-I9200THEN IFX0.8 
16140 IFX6.0 
I615(’ VDU2 

1616<» PRINTTAB(O.O) 1 lENDFROC 
16500 IFX5.I 
16520 VDU2 

16530 PRINT TAB(0,0)11ENDPROC 

16999 REM. 

17000 DEF PROCTAB(LX) 

17010 PRINTTAB(4' 1 NAMEt (LX) | TAB<20) |F1RM* <LX) 1 TAB(37* (DISC*/.(LX) >9) )|DI8CX(LX.)| 

17020 ENDPROC 

17999 REM- ---------- - 

18000 DEF PROCAMMEND 
18010 PROCTOR!"RET") 

18020 IFMAXX-0 THEN PRINTTAB<10,10)I"FILEN ER TOM-"iGOTOl013O 
18030 INPUTTAB(0,7)1"Hvi1kvt indtast «l«l rpttva 1*DE 
18040 PROCTAB(DE) 

18050 PRINT* "ER DET DETTE **’ 1 iG*-GET» 

18060 IF G*-"N" THEN GOT018030 
10070 INPUTTAB(4,11)""NN*j 

18090 IFNN*--" THEN Rfi!NTTAB(4.11)|NAM£*<BE)»!lNPUTTAB(20.ll)“-FF*i ELSE NAME*IDE)-NNtiIN 
PUTTAB(20,11)”*FF*| 

18090 IFFF*-"" THEN PRINTTAB(20.11)(FIRM*(D£>11 INPUTTAB(37,11)""DDXi ELSE FIRM*iDE)-FF*iI 
NRUTTAB <37,11>"”DDX| 

10100 IFDD7.-0 THEN PRINTTAB(37.11) 1 DISCX(DE) 11GOTOI8110 ELSE DISCX (DE *-DDX 
18105 F^INTTAB(4,lit;NAME*(DE)I TAB(20.11•|FIRM*(DE)I TAB(T7.11)iDISCX(DE)| 

10110 PRINTTAB(3,22)i"FiI#0 R#tt*l."II-1NREY1300) 

18115 PRINTTAB(3,20)1"Er d»t 1 ord*n -"1:G*-6ET*i1FG*-'J-0 RG*-"j"T)CN ENDPROC ELSEPRINTTA 
B(3,2<>) 1 STRING* (30. " “>| TAB13.22) iSTRING* (30. " “)| iG0T018070 
18120 ENDPROC 
18130 RROCSPACE 
I8140 ENDPROC 

18999 REM- ------- - 

19000 DEF RPOCNEMLINE 

19001 IF»p*-"J" THEN ENDRROC 
19010 LOCAL FLX.LX 

19020 PRINTTAB!13,23)|'TAST SPACE-BAR- 
19030 FLX-OiREPEAT 
19040 F0RLX-129T0135 

19050 IFINKEY-99 THEN LX-135iFLX-l 

19060 PRINTTAB <2,23)CHR*(LX)1 

19070 I-INKEY(10)1 NEXT 

19080 UNTILFLX-1 

19090 F0PL-4T024iPRINTTAB(0,L)|SPC(39>| 

19100 NEXT 
19110 ENDPROC 

1999? REM- 

30000 DEF PROCFEJL 

30001 VDU3 

30002 PRINT" ”iVDU3,3,3,3 
30010 PROCTOR("F E J L") 

30020 IF ERR"222 THEN PRINTTAB(0.10):"Fi1*n pfsittcrpr ill®. L*v en nv. H :60T030050 
30030 IF ERR-17 THEN PRINTTAB(0.10):"Eficape-t«*ten vlrktr ikle'":G0T030050 
30040 REPORT!PRINT" 1 lime ";ERL 
30050 PF:OCSPACE 
30060 ENDPROC 
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Identity Check 

I ^ PERSONNUMMERBEVIS PERSONNUMMEREEVIS Uas '° a ' al 


INDENRIGSMINISTERIET 

Sekretanatet for personregistrering 



i Fodsalsdato 


L-Jil00a.5if J3to 

28 SEP 1968 


SEKRETARIATET 

FOR 

PERSONREGISTRER 


Optaget i folkeregistret for nedenstSen de ko mmune 

H0JE-TXSTRUP 


I Navrt og adresse 


HANS CHRISTIAN THAYSEN 



1 Beviset skal opbevares omhyggeligt. 

2630 I Deres persoiyiummerbevis skal bruges til dokumentation al 
■ ■ personnummer over for offentlige myndigheder og andre 

Er der fejl I bevisets oplysninger: 

Se vejledning pS bagsiden. 


1 Personlig undersKrift 


■ Er du i en identitetskrise, og 
kan du ikke iinde dig selv? 
Del sky Ides uden tvivl, at du 
har et forked CPR-nummer! 
For Commodore 64 ejere, der 
taler sig fremmedgjorte, er 
redningen her. Programmet 
sparger selv om de anskede 
oplysninger, og checker CPR- 
nummeret. □ 

Jan Petersen 




10 PRINT"J aCPR. TAESTH ":CLR 

20 PRINT"SKRIV CPR-NUMMERET ,HUSK KUN 10 TAL“ 

30 INPUTCP* 

AO CI=LEN< CP*) 

50 IFCI< MOTHENGOTO 1000 
70 FOR L =1 TO 10 
75 READQ 

30 FA=FA+< < VAL( MID*< CP*,L, 1 ) ) ) *Q > 

100 NEXTL 

105 IFFA =00000000Q0THEN2000 

110 I F(FA /11>=1NT< FA /1 1)THEN1500 

120 IF<FA/1 1>< >1NT< FA/1 1>THEN2000 

999 END 

1000 PRINT”d DET SKULLE VAERE PAA 11 C1FRE IKKE PAA";CI 

1010 FORN = OTO1700:NEXT:GOTO 10 

1100 DATA4,3,2,7,6,5,4,3,2,1 

1500 PRINT"d DET ER ET AEGTE CPR-NR." 

1510 INPUT“tfv'IL DU HAVE TAESTET ET NYT CPR-NR< J/N) "; I * 

1520 IF I*= 11 J "THEN 10 
1530 IFI*="N"THENEND 
1540 GOTO 1500 

2000 PR INT"d3PR-NUMMERET VAR FORKERT 

2010 INPUT"»yiL OU HAVE TAESTET ET NYT CPR-NR<J/N)”;I* 

2030 IF I $ = 11 J 11 THEN 10 
2040 IFI*=“N"THENEND 
2050 G0T02000 

2500 DATA4,3,2,7,B,5,4,3/2,1 


Sweet, sweet 







■ I dette lille program kan du 
hare sad musik lor dine arer. 
Programmet sparger farst om 
hastigheden pd melodien. 
1000 er mest langsom og 50 
er hurtigst. Da spiller compu- 
teren sd hurtigt, at man nce- 
sten mister vejret. 


Bedste og mest naturlige ha- 
stighed vil nok vcere omkring 
250-300. Elter melodien har 
spillet fcerdigt. stilles du igen 
over for spargsmdlet om ny 
hastighed, og programmet 
starter pdtny.D 

Nils Lausten 
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40 IF HR=8 THEN Hfl=250 ■ i - - 

50 FOR I *0TO40: T< I) =HR • NEXT /flK'FKTOTiraffl n 1 I 

SSfSSS, 1 commo 1 

80 T<23)»Hfl*2 ° =i -I DORE f-J 

90 T<31 >=HR*4 64 ® 

100 T(2>=HR/2 T<3:=Hfl/2 \ 

110 T < 8 > =HR/2 : T < 9 > =Hfl/2 
120 T < 11 > =HH/2T < 12 > =HR.'2 
130 T (14 > =Hfi/2 T < 15 > =HR, '2 
140 T <19 > =Hfl/2 : T < 20 > =HH/2 
150 T<27)=HR/2 : T(28)=HR/2 

160 P0KE54296,15:PQKE54277,31 P0KE54275,14 PQKE54274,30 :P0KE54278,128 
170 RERD RIF R=-l THEN RUN 
180 RERD B 

190 P0KE54273/R : P0KE54272,B 
200 P0KE54276.65 

210 FORI=1TOT<LO NEXT P0KE54276,64 
220 U=U+1 : GOTO 170 

230 DRTR 12 , 216 , 17 , 37 , 17 , 37 , 17 , 37 , 16,47,14,107,12,216,10,205.8,147.9,159 
240 DRTR 10,205,10,205,10,205,11,114,10,205,10,205,9,159,12,216,17,37,17,37 
250 DRTR 17,37 

260 DRTR 21,154,19,63,19,63,17,37,17,37,19,63,14,107,19,63,17,37,16,47.17,37 
270 DRTR -1,-1 
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Intelligent 

Othello^ 




o 


■ Jeg vil gerne tremhceve, at 
dette eksempel pit brcetspiUet 
Othello, er hvad man kunne 
kalde "intelligent". Det skal 
forstds pb den mdde. at du 
med denne version at Othello 
i din computer, fdr en ganske 
vcerdig modstander. 

De ertarne spillere vil hurtigt 
tinde programmets svaghe- 
der, og vil kunne spille p6 
dem. Har du derimod ikke 
den store erlaring med spillet, 
vil det give dig mange mor- 
somme timer i selskab med 
din datamat.D 

Hans-Erik Larsen 


0 




fc.t. he-1 i oB< <■ 


|h«ns-*ri kB arsenl 

la. Botu< iB1384. I 


2 GOSUB 3500 
GAS-0 

6 SLOW 
5 CLS 

b PRINT AT 5| 10:". , fcthtl I oB. . " 
1AT 10. 7! "VIL CL! BEGYNDE J/N" 

7 IF INKEY* <>"•• THEN GOTO 7 
S IF INKEY*="" THEN GOTO S 

3 IF INKEY*="J" THEN GOTO 13 
10 IF INKEY*="N" THENAS-1 

13 SOUND 10. 1000 

16 CLS 

15 PRINT AT 10.51"TAST F. FOR FA 
ST MODE'' SAT 12. 51 "TAST S. FOR SLO 
W MODE" 

16M0DE-0 

17 IF INKEY* = "F" THENH0DE=1 
IS IF INKEY*="S" THENM0DE=2 
13 IF MODEIO THEN GOTO 22 

20 GOTO 17 

21 IF AS=0 THEN GOTO 50 
22MI-3 


23 IF INKEY*="" THEN GOTO 23 
26 IF INKEY*="N" THENAS=1 
30 CLS 
55XX=0 
70 FAST 
800=16326 
90 FOR B=5 TO 12 
100 FOR A*15 T022 

105 IF B=5 THEN PRINT AT 6.A1CHR* ( 
0+23) 

110 PRINT AT B. A! "B" I 
120 NEXT A 

135 PRINT AT B.161CHR* (8+33) 

160 NEXT B 

150 POKE 16613.0 

160 PRINT AT 23. 8! " > 1 Bit he M oB< <" 
165 PRINT AT 6. 0! "seoreB" 1 AT 7.0!” 
tast*0" 1 AT 15. 01 "BstatusB" 1 AT 17.0 
;"X=2 0=2" 


167HD-0 

170 POKE 16618.2 

171 POKE C-l, 133 

172 POKE C-33.133 
173X-2 

1760=2 

175 POKE C.180 

176 POKE C-36.180 

177 IF AS=1 THEN GOTO 1000 

180 PRINT AT O.Ot")>Bd.tBtraekB(x 
. y>■<< "1 AT 3.01"incut 

” i OT 11.11" 

195 SLOW 

200 IF INKEY*(>"" THEN GOTO 200 
210 IF INKEY*=“" THEN GOTO 210 
2200*=INKEY* 

221 IF CODE A*=53 THEN PRINT AT 3.0 
1 "♦Baas**" 

222 IF CODE A*=53 THEN GOTO 333 
226 IF CODE A*=28 THEN SOUND 10.15 

OO 

225 IF CODE A*=28 THEN GOTO 562 

223 IF CODE A*<38 OR CODE A*)65 THE 
N GOTO 200 

230X=C0DE A*-38 
260 SOUND 20. 1000 
250 POKE 16876.(X+38) 

260 IF INKEY* <>"" THEN GOTO 260 
270 I c INKEY*="" THEN GOTO 270 
280B*= INKEY* 

285 IF CODE B*> 65 OR CODE B*<33 THE 
N GO T 0 260 
290Y=CODE B*-38 
300 SOUND 20. 1000 
310 POKE 16375.26 
320 POKE 16376.(Y+3S) 

3305= <6690+ < Y+33+ X)) 

335 FRINT A* 0.01“ 

360 IF PEEK S=1S0 OR PEEK S=1S9 THE 
N GCTG 550 

350 IF PEEK (S-36)=130 OR PEEK (S-3 
31=130 OR PEEK <S-32)=1S0 OR PEEK (S 
-11=180 OR PEEK <S+1)=1S0 OR PEEK (S 
+331=180 OR PEEK <S+32)=!80 OR PEEK 
<S+36>=180 THEN GOTO 360 


355 GOTO 550 
3600=S 

370 FOR A=(Q-36) T016651 STEP-36 
375 IF PEEK A=1S9 THEN GOSUB 600 
377 IF PEEK A<=123 THEM GOTO 335 
380 NEXT A 

385 FOR 8=(0-33) T01655O STEP-33 
390 IF PEEK A=139 THEN GOSUB 650 
395 IF PEEK A(=128 THEN GOTO 605 
600 NEXT A 

610 FOR A=(G-32) T016550 STEP-32 
615 IF PEEK P=1S9 THEN GOSUB 700 
620 IF PEEK A(=128 THEN GOTO 630 
625 NEXT A 

630 FOR A=(Q-1) TO16550 STEP-1 
635 IF PEEK A=139 THEN OOSUB 750 
660 IF PEEK A<=128 THEN GOTO 650 
665 NEXT A 

650 FOR A=(0+1) TO 17300 STEP1 
655 IF PEEK A=189 THEN GOSUB 300 
660 IF PEEK A(=128 THEN GOTO 670 
665 NEXT A 

670 FOR A=(Q+32) TO 17300 STEP32 
675 IF PEEK A=1S9 THEN GOSUB 350 
680 IF PEEK A(=123 THEN GOTO 630 
685 NEXT A 

690 FOR A=<0+33) TO 17300 STEP33 
695 IF PEEK A=139 THEN GOSUB 300 
500 IF PEEK A(=128 THEN GOTO 510 
505 NEXT A 

510 FOR A=(Q+36) T017300 STEP36 
520 IF PEEK A=189 THEN GOSUB 350 
530 IF PEEK A(=128 THEN GOTO 560 
535 NEXT A 

560 IF PEEK S=189 THEN GOTO 1000 
550 PRINT AT 0. 01 " -Bu I ov I i 3tBt ra* 

K *" 

560 PAUSE 150 

561 GOTO 178 

562 PRINT AT 9. 01 "*sK. B" I AT 0.01"- 
BKUebl i KB- 

563 X=0 
5660=0 

565 FOR 8=5 T012 
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566 FOR A=15 T022 
567TY=16510+(B*33+A) 

568 IF PEEK TY=180 THEN0=0+'l 

569 IF PEEK TY=1S9 THENX=X+1 

571 NEXT A 

572 NEXT B 

575 PRINT AT 17,Oi"X="iXi " 0="i0! 

576 IF X+0=64 THEN GOTO 8090 

577 IF X=0 OR 0=0 THEN GOTO 8091 
585 GOTO 178 

600 FOR A=<Q-34> T016550 STEP-34 
602 IF PEEK A=189 THEN GOTO 385 
605 IF PEEK A=180 THEN POKE A, 189 

614 POKE S, 189 

615 NEXT A 

650 FOR A=<Q-33) T016550 STEP-33 
655 IF PEEK A=189 THEN GOTO 405 
660 IF PEEK A=180 THEN POKE A, 189 
670 POKE S, 189 
680 NEXT A 

700 FOR A=(Q-32) T016550 STEP-32 
705 IF PEEK A=189 THEN GOTO 426 
710 IF PEEK A=180 THEN POKE A. 189 
720 POKE S.189 
730 NEXT A 

750 FOR A= (D-1) TO 16550 STEP-1 
755 IF PEEK A=189 THEN GOTO 449 

760 IF PEEK A* 180 THEN POKE A, 139 

761 POKE S. 189 
765 NEXT A 

300 FOR A=(Q+1 ) T017300 STEP1 
810 IF PEEK A= 189 THEN GOTO 469 
320 IF PEEK A= 130 THEN POKE A, 189 
825 POKE S, 189 
330 NEXT A 

350 FDR A= (0+32) T017300 STE°32 
S60 IF PEEK A= 189 THEM GOTO 490 
370 IF PEEK A= 1 SO THEN POKE A, 189 
875 POKE S.189 
880 HEX' A 

900 FOR A=<0+33) T017300 STEP33 
910 IF PEEK A=189 THEN GOTO 510 
920 IF PEEK A= J 80 THEN POKE A, 189 
525 THING 6, 189 
930 NEXT A 

950 FOR A=10+34) TO 17300 STEP34 
960 IF PEEK A=189 THEN GOTO 540 
370 IF PEEK A= ISO THEN POKE 0,139 
975 POKE S,189 
380 NEXT A 
950 POKE S. 189 
939 SOUND 10.2000 
1000 PAUSE 100 
1001HD-0 
1002MI=MI-1 
,.003 IF MI <0 THENMI =0 
1005AS=0 

,008 PRINT OT 0,0!"+»nitltra9K»+ 

1009WC=0 
1010HI=0 

1011 IF M0DE=1 THEN FAST 

1012 IF M0DE=2 THEN SLOW 
1015HL=O 

1020 FOR A= < 15+MI) TOf 22-MI) 

1025 POKE (16510*01,23 
1030 FOR B=(5+MI) T0U2-MI) 

J 040P-I16510+(B*33+A)) 

1050 IF PEEK P=128 THEN GOSUB 1100 

1060 NEXT B 

1070 SOUND (A+B>, 500 

1080 NEXT A 

1085 GOTO 3021 

1090 REM und@rs09eIse- 

1100 IF PEEK CP-34)=189 OR PEEK (P-3 

31=189 OR PEEK (P~32)=1S9 OR PEEK (P 

— 1) = 1S9 OR PEEK (P+1) = 189 OR PEEK (P 

+32)=189 OR PEEK (P+33)=189 OR PEEK 

X P+34) = l89 THEN GOTO 1200 

1 110 RETURN 

120000=0 

1210 FOR C=(P-32> TO16550 STEP-32 
1220 IF PEEK 0=180 THEN GOTO 1300 
1230 IF PEEK C=1S9 THENQA=0A+1 
1240 IF PEEK C ( = 128 THENQA=0 
1250 IF 0A=O THEN GOTO 1300 
1260 NEXT C 
1 300QB=0 

1310 FOR C=(P—33) TO 16550 STEP-33 
1320 IF PEEK C=180 THEN GOTO 1400 
1330 IF PEEK 0=189 THEN0B=GB+1 
1340 IF PEEK C < = 128 THENQB=0 
1350 IF QB=0 THEN GOTO 1400 
1360 NEXT C 
140000=0 

1410 FOR C=(P-34) TO16550 STEP-34 
1420 IF PEEK C=180 THEN GOTO 1500 
1430 IF PEEK 0=189 THENQC=QC+1 
1440 IF PEEK C (=128 THENGC=0 
1450 IF 00=0 THEN GOTO 1500 


1460 NEXT C 
1500QD=0 

1510 FOR C=(P-1> TO(P-13) STEP-1 
1520 IF PEEK C=130 THEN GOTO 1600 
1530 IF PEEK 0=139 THENQD=0D+1 
1540 IF PEEK C ( = 128 THEN0D=0 
1550 IF QD=0 THEN GOTO 1600 
1560 NEXT C 
16000E=0 

1610 FOR C=(P+1) T0(P+13) 

1620 IF PEEK 0=180 THEN GOTO 1700 
1630 IF PEEK C=189 THENQE=0E+1 
1640 IF PEEK C(=12S THENQE=0 
1650 IF QE=0 THEN GOTO 1700 
1660 NEXT C 
17OO0F=O 

1710 FOR C=(P+32) TO 17200 STEP32 
1720 IF PEEK C = 180 THEN GOTO 1800 
1730 IF PEEK C = 139 THEN0F=0F+1 
1740 IF PEEK C (=128 THEN0F=0 
1750 IF QF=0 THEN GOTO 1800 
1760 NEXT C 
18OO0G=O 

1810 FOR C=(P+33) T017200 STEP33 
1820 IF PEEK C=1B0 THEN GOTO 1900 
1830 IF PEEK C=1S9 THEN0G=0G+1 
1840 IF PEEK C < = 128 TKENGG=0 
1850 IF QG=0 THEN GOTO 1900 
1860 NEXT C 
1900QH=0 

1910 FOR C=(P+34) T017200 STEP34 
1920 IF PEEK C=180 THEN GOTO 2700 
1930 IF PEEK C=1S9 THEN0H=QH+1 
1940 IF PEEK 0 ( = 128 THEN0H=0 
1950 IF QH=0 THEN GOTO 2700 
1960 NEXT C 

270OHL=OA+QB+QC+OD+OE+OF+OG+0K 

2750 IF XX=1 THEN GOTO 3017 

2800SB=0 

2301 BB=0 

2S02BC=0 

2803BD=0 

2303 IF PEEK 16690=180 THENSB=1 

2810 IF PEEK 16697=180 THENBB=1 

2820 IF PEEK 16921=180 THENBC=1 

2830 IF PEEK 16928=180 THENBD= 1 

2390 IF SB=1 THEN GOTO 2901 

2900 IF (P-34)=16690 OR (P-33)=166 
90 OR (P-1)=16690 THENHL-0 

2901 IF BB=1 THEN GOTO 2919 

2910 IF (P—33)=16697 OR (P-32)=166 
97 OR (P+11 = 16697 THENHL=0 

2919 IF BC=1 THEN GOTO 2928 

2920 IF (P+33) =16921 OR (P+32) =169 
21 OR < P-1) = 16921 THENHL=0 

2929 IF BD=1 THEN GOTO 3006 

2930 IF (P+33)=16928 OR (P+34)=169 
28 OR (P+1)=16928 THENHL=0 

3006 IF HL> 0 AND P=16928 THENWC=1 

3007 IF HL> 0 AND P=16690 THENWC=1 

3008 IF HL) 0 AND P=16921 THENWC=1 

3009 IF HL) 0 AND P=16697 THENWC=1 

3010 IF HL)2 AND P(16697 THENWC=1 

3011 IF HL) 2 AND P) 16921 THENWC=1 

3015 IF WC=1 THENHI=P 

3016 IF WC=1 THEN GOTO 3025 

3017 IF HL) HD THENHD=HL 

3018 IF HD=HL THENHI=P 

3020 RETURN 

3021 IF HD=0 THENXX=XX+1 

3022 IF XX=1 AND HD)0 THENXX=0 

3024 IF XX=1 THEN GOTO 1001 

3025 IF XX=2 OR HI=0 THEN GOTO 8000 
3030 SOUND 10, 2000 

3035 SLOW 

3038 FOR A= 1 T015 

3039 POKE HI,52 

3040 PAUSE 4 
3050 POKE HI,180 
3060 NEXT A 
3070 GOTO 4000 

4000 FOR C=(Hl-32) T016690 STE°-3 

2 

4010 IF PEEK C=180 THEN GOSUB 6000 
4015 IF PEEK C(=128 THEN GOTO 4100 
4020 NEXT C 

4100 FOR C=(HI-33) T016690 STEP-3 


4110 IF PEEK C=1S0 THEN GOSUB 6100 
4115 IF PEEK C<=128 THEN GOTO 4200 
4120 NEXT C 

4200 FOR C=(HI-34) T016630 STEP-3 
4 

4210 IF PEEK C=1S0 THEN GOSUB 6200 
4215 I c °EFK C(=128 THEN GOTO 4300 
4220 NEXT C 

4300 FOR C=(HI —1) TO 16690 SlEP-l 
4310 IF PEEK C=130 THEN GOSUB 6300 
4315 IF PEEK C(=123 THEN GOTO 4400 
4320 NEXT C 

4400 : 0R C=(HI + 1) TOI.P+15) 

4410 IF PEEK C=130 THEN GOSUB 6400 


4415 IF PEEK C(=12S THEN GOTO 4500 
4420 NEXT C 

4500 FOR C=(Hl+32) T017200 STEP32 
4510 IF PEEK C=180 THEN GOSUB 6500 
4515 IF PEEK C < = 128 THEN GOTO 4600 
4520 NEXT C 

4600 FOR C=(H3+33) T017200 STEP33 
4610 IF PEEK 0180 THEN GOSUB 6600 
4615 IF PEEK C<=123 THEN GOTO 4700 
4620 NEXT C 

4700 FOR C=(HI+34) T017200 STEP34 
4710 IF PEEK 0180 THEN GOSUB 6700 
4715 IF PEEK C < = 128 THEN GOTO 178 
4720 NEXT C 
4800 GOTO 178 
6000 POKE HI,180 

6005 FOR O(HI-32) T016690 STEP-3 

2 

6010 IF PEEK C(=180 THEN GOTO 4100 
6020 IF PEEK C=139 THEN POKE C. 130 
6030 NEXT C 
6100 POKE HI, 180 

6105 FOR C=(HI-33> T016690 STEP-3 

3 

6110 IF PEEK C <=180 THEN GOTO 4200 
6120 IF PEEK C=1S9 THEN POKE C. 130 
6130 NEXT C 
6200 POKE HI. 180 

6210 FOR C=(HI-34) T016690 STEP-3 

4 

6220 IF PEEK C< = 180 THEN GOTO 4300 
6230 IF PEEK ‘0=189 THEN POKE C, 180 
6240 NEXT C 
6300 POKE HI. 180 

6310 FOR C=(HI-1) TOCHI-13) STEP- 
1 

6320 IF PEEK C< = 180 THEN GOTO 4400 

6330 IF PEEK C=189 THEN POKE C. 180 

6340 NEXT C 

6400 POKE HI,180 

6405 FOR C=(HI+1) TOCHI+13) 

6410 IF PEEK C(=180 THEN GOTO 4500 
6420 IF PEEK C=1S9 THEN POKE C. 180 
6430 NEXT C 
6500 POKE HI, 180 

6510 FOR C=(HI+32) T017200 STEP32 
6520 IF PEEK C< = 180 THEN GOTO 4600 
6530 IF PEEK C=1S9 THEN POKE C, 180 
6540 NEXT C 
6600 POKE HI, 180 

6610 FOR C*(HI+33) T017200 STEP33 
6620 IF PEEK C( = 180 THEN GOTO 4700 
6630 IF PEEK C=189 THEN POKE C, 180 
6640 NEXT C 
6700 POKE HI, 180 

6710 FOR C=(HI+34) T017200 STEP34 
6720 IF PEEK C< = 180 THEN GOTO 178 
6730 IF PEEK C=189 THEN POKE C, 180 
6740 NEXT C 
7000 GOTO 178 

5000 FOR A=5 T050 STEPS 

5001 SOUND A, 500 
3002 NEXT A 
S009X-0 
30100=0 

3020 FOR A=5 T012 
3030 FOR B=15 T022 
8040PQ=<16510+ <A+33+B)) 

3050 IF PEEK P0=180 THEN0=0+1 
8060 IF PEEK P0=189 THENX=X+1 
3070 NEXT B 

3075 SOUND <A+B-13),500 
3080 NEXT A 

3090 SLOW 

3091 IF 0)X THEN PRINT AT 0,0I“Je9« 
vandt MED “iOl" BOLLER MOD DINE 
"iX!" KRYDSER" ;AT 15,15!"+ MATE + 

3100 IF X)0 THEN PRINT AT 0. 0!”du*v 
avidt MED "! X !" KRYDSER MOD MINE 
"iD!" BOLLER" 

3110 PRINT AT 21,5)"VIL DU PROVE I 
GEN J/N" 

3115 IF 0=X THEN PRINT AT 0,0!" 

DET BLEV UAFGJORT MED "iO!"-”SXS 

3120 IF INKEY*="J" THEN RUN 
3130 IF INKEY$="N" THEN STOP 
3140 GOTO 8120 
9000 SAVE "OTHELLo" 

9010 RUN 
9500 FAST 

9510 FOR A=1 T091 STEP5 
9520 SOUND A, 500 
9530 SOUND (A+D.500 
3540 SOUND (A+2), 500 
9550 SOUND (A+3),500 
9560 SOUND <A+4),500 
9570 SOUND <A+5>,500 
9580 NEXT A 
9590 SLOW 
9600 RETURN 
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Dette program til Oric/Atmos 
er en lille maskinkoderutine. 
der lint kan bruges som 
"blcer" i spil og andre pro¬ 
grammer. Programmet "rul- 
ler" hele karakterscettet. Kal- 


der man rutinen 8 gange, vil 
karaktererne vcere pd plads 
igen. Demoprogrammet skul- 
le gerne vise, hvordan det 
virker.D 

Anders Jargensen 



1 FORN=#400 TO #41D 

2 READA$:M=VAL("#"+A$) 

3 POKEN.M 

4 NEXT N 

5 DATA A9,00,A0,B4,85,00,84,01 

6 DATA A0,00,B1,00,2A,B1,00,2A 

7 DATA 91,00,C8,D0,F5,E6,01,A5 

8 DATA 01,C9,B8,D0,ED,60 


1. del 


10 REM ++++ DEMONSTRATION ++++ 


2. del 


20 CDS:PAPER0:INK7 
30 poke#26a, i 0 

40 PLOT3,10,"DETTE ER EN DEMONSTRATION AF, HVAD" 
50 PL0T3,12,"MAN KAN G0RE MED DEN LILLE RUTINE." 
60 WAIT 200 

70 FORN=1TO80:CALL#400:NEXTN 


80 WAIT 200 


90 F0RN=1TO80:CALL*400:NEXTN 
100 WAIT 200 

110 PL0T3,14,"DET SAA DA SMART UD, IKKE SANDT ?" 
120 END 


Copyright 1985 by Anders Jergensent 




Space 


animals 



■ I dette Scramble lignende 
spil til 48 K Spectrum skal du 
tlyve gennem de 7 torskellige 
skcerme. Sarntidig skal du 
skyde rumdyr ned uden selv 
at blive ramt. 

Pd hver skcerm bliver spillet 
en smule svcerere. Det ses ved 
at jorden skitter farve og lase- 
ren hurtigere bliver ophedet. 
Spillet er i ovrigt selvtorklaren- 
de.D 

Benny Lanstrup Kristensen 


y 


<S 


0>REM 

»#»**»*f**«*‘‘fJ*‘»H-»* 

* PPOGRPMM0P:EP 

* Benny l. Kristensen :< 

* Lars (3s tcr pa l te til 

* 4.3K SPECTRUM 

* Kan evt. benyttei : 

* CUPRPM MICRO-SPEEC- 

* < t in i e rne » e d $*='•■ 

- 

1 ClEPP 59999. RESTORE 

h =0 BOROEP 0 PPPEP 0 CL5 
K 6 

2 00 SUE 9000 LET ins=30 
GO SUB ind 

3 LET oot=1200 LET 0=0 

Si.a<rjB=i LET ask=1100 _E _ 

LET d= 29 LET c = -1 LET = 
LET c*="GH GH GM ' lE~ ft 
000 LET e<2=1500 LET s>.Ud = 
LET ex=2500 LET in==3000 
Start =4.000 LET foe 1=5000: 
print=6000 lE t slut=7000 
na =3000: LET ft=0 

4 LET a =S LET P2 = i000 . 

Hi ft=1300: LET fa=5 





«H«*SSflM8BSnSe 
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■ Programmet kan checke et alle gyldige erstalningsciire til 
CPR-nummer. samt beregne en given (odselsdag. □ 

Niels Jaigen Bertelsen 

5 REM -- 

6uSUB3u« 

10 RESTORE CLR>01HAD(12> FORX=lTOlO MirtDCH<X'-rtiKX> NEXT READflDUl>*MM2> 

20 PRINT"3MCPR.PR0.«laW^-' INPUl "«sf ousELsHmIu ".M 1-»vhl- ill 14< in . >.<: 

SO IPVflL < RI GHT*< D*. 2 > >/4» I NT < VAL •.RIGHT J* D#.2» >/A / IHfcMMB < 2> *2* 

40 IFLEH<B*K>6 OR VHL<D*K101WO OR B.-12 IHEM20 
50 F0RX-1T06 $ 1 *S1+CH<X/♦VAL•M1D* 1 D*•;..I•* NEXT 
SO PRINT" tttUMtllMittM-" 

INRUT“cbMMfMtfiU-CIFRET kOBE“,H k«VAL*KF/ • IFLEN<K*K>40RK<0THEN?’0 
SO S2«S1 F0RX*7T010;$2«S2 H:H<X/*VALvMIM<» NEXT IFS2/I UINKS2/11' THEN l 

05 ._ 

30 PRINT a, flUMn(RliMaMifilsUGVLOIGT CPR.NR. M.tRW« 1 r040oo NEXT \m 

100 PRINT‘aaWWmWW - M0 G0T0S0 . B 

105 PRINT"flNMaUMRMiUMStjVL01GT CPR.NR. ' ! " VIC 

10S IFK/2*INT<K/2/THENPRINT"iWaTlLH0RER EN PIGE." G0T0108 3 

10/ PRINT"IW3TILHORER EN DRENG. " dSJ B 

100 F0RW«1 T04000 NEXT H 

110 IFV“1 IHEN300 -* 

120 PR I NT" .HM: PR. NR. /———_ 

125 pRiNT*«Mki-- inranOBai 

126 PRINT"MmUlCRSrATN1NGSNR. " B I 

127 PRINT' aWHUf/sl-RSI MINI NGSNR. " if 


130 PRINI-il-«" IFK/2=INT<K/2/TH£NK0*l 

140 F0RCK=0TOS993 SU=S1 CK*=R10Hr*(STR*(CK).4) 

150 lFCK<19e00HDCK>99TH6MCK»="0-.RIOHT«(STR»<CK>,3> -0010160 
160 IFCK<100ftMXiCI<>3TMENCK»="00'"iR!0MT*<STR»<CK>.2) 0010180 
170 lFCK<10TH£MCkl="000“*R16HT».SIR«<CK3,l> 

180 FORX-7TO10 SU=SU*CH<X>*V'fiL<MUi$iCM.X-6,l)) NEXT 
185 I FK0= 1ftNDCK/20INT <CK/2> THEN220 
130 IFK0=0ftNDCK/2“INI 1CK/2) THEN220 
200 1FS0/1 lOINKSU/l 1 >ORCKMIHEH220 
203 E=£*l 

210 lFE>3FiNDE<100THEMPRlNT"iHR. "E"■"D*"-"CKJ 

211 IFE<10rHEIlPRIHT‘"rflR. “E" "M"-"CK» 

215 IFE>3STHENFRINT"aiR. “E" “W-"CK* 

216 P0KE36878.10 P0KE36875.240 FORK-1TO50 NEXT P0RE36878.0 P0KE368'7S. 0 
220 OETU* 1FU*«"S"THEN 240 

230 NEXT Ck 

240 IFCK<3333THENPRIH1 "JlfcDFu FOR FORTSNET. " 

250 PRINT"JM>M< FOR MENU." 

260 OETNI IFM»."F"HNDCK<3333THENHEXTCk 
270 IF h$= "M* 1 THEN300 
280 GOTO260 

230 BRIN 4.31.3.28.2.31.7.30.6,31.5.30.4.31,3.31,2.30.1.31.30.31 

300 PRINT-nttfcHOVEIinENU " 

310 PRINT" -" 

320 PRINT PRINT" 1. CPR-CHECK." 

330 PRINT PRINT" 2. CPR-SNYD.• 

340 PRINT”**-" 

350 PRINT-1WIHDT8ST VHLG " 

355 RESTORE CLR DINHD< 12> FORX=1TO10 RERDCH<X>.RDIX> NIEXT REmWIKI I, .«B< 121 
360 GETV» IFY».'"'THEN360 
370 Y=V«UY*> 

380 1FV»1ORY«2THEN20 
400 GOTO360 


OR in=191 THEN LET 0=0-1 RND 0 0 
RETURN 

£005 LET 0 = 0 * 1 : IF OiiO-skaerm T 
HEN PRINT OT 10,8; OVER I INK £ 
LASER OOEROPHEDET" LET = * = 1 

l) issis ler 5 (o o > v < t r) h (t * j t i e ■■ 
.GO SUB 4 x £: LET 0=0 PRINT fl 
T 1$ -3. OUER 1; INK £, "LASER OVE 
ROPHEDET" 

£010 LET q=RND* 6 +l: PRINT (IT i £ 
INK q; OUER 1,"KKKKKKKKKKKKKKK 
KKKKKKKKKKKKKKK" POKE 60015 1 
LE" qq=USR 60000 PRINT RT 3 £ 
INK q; OUER 1 "KKKKKKKKKKKKKKKKK 
KK.KKKKKKKKKKK " ;: IF a=c RNO '==5 
THEN LET p sp*35-0 GO SUB t L 
ET c =-l: IF s kae r» > =S then let < 
a =6 

£015 IF a =c RNO fa =6 THEN LET fa 
=5 

£ 01 ? IF skaerm=5 RNO p>p£ then l 
ET fa =6 

£ 0£0 IF p >p£ then LET jkaerinsska 
eri» + l GO SUB ski ft: LET **='Adv 
aans t(ouu) nekst uvleru LET 
P£ =P£ + 1000 LET c* = e**"GH " 

£100 RETURN 

£500 REM *eksplosion* 

£505 IF RNO >.5 THEN LET i*='f'n 

i n i s n l o t " 

£510 PRINT RT c.b, OUER 1 f.pih 
1: INK £.. PRPER 6 ;"LM POKE 50 
016,3 LET qq =USR 50000 PRINT R 
T c.b, INK 0 
£600 RETURN 
3000 PEM aangreb* 

3010 IF C =-l THEN LET C =INT RNO 
*171: PRINT RT c,b; INK fa OUER 
1 IJ" 

3015 IF c- =£ THEN PRINT AT c . b I 
NK 01 " " LET b=£9 LET c=-l R 

ETURN 

301? IF a=c RNO skasrm<5 OP a=: 
RNO sKaerm =5 RNO RNO<.35 THEN G 
O SUB 3100 

ftopo DR TNT RT r K TNK f* OUER 
1."IJ " 

3030 LET b = b-1: LET C=C+ta-C>- a 
<C): PRINT RT c,b, OUER 1 , INK f 
a;"IJ" 

304-0 RETURN 

3100 PRINT RT c.b; INK fa; OVER 
1;"IJ" LET d S = "KKKKKKKKKKKKKKK K 
KKKKKKKKKKKKKK" PRINT AT c, 0 . S 
RIGHT 1; OUER 1; INK 6 ,d*< TO b) 
PRINT RT C,b, OUER 1 , INK fa 
IJ" 

3110 POKE 60016,1 LET qq=USR 60 
000: PRINT RT C.01 OUER 1, INK £ 
dll TO bl IF c=a THEN LET = * = 
HRHRhahaaa GO SUB €x£ 

31£0 RETURN 

5000 let s*= t(iilm t(ouu) r (es 

I y (o u u) i 

5001 PRINT RT c.b. OUER 1 , INK 5 
,"IJ",RT 11,7 OUER 0, INK £ PR 
PER 6 . FLRSH 1;"BENZIN PRRFYLONI 
NG" FOR f =3 TO 1 STEP -1 POKE 
60016', f: RANDOMIZE USR 60000 NE 
XT f 

5005 LET 4 * = " 

EFEEFFFFFFB^, . _ 
OFFFFFFFFFFEEEEEEEEBENZINEFFFFFF 
FFFEEEEEEEEEF 

5010 FOR x =1 TO LEN b*-31 
5030 PRINT RT 18,0. BRIGHT 1 IN 
K sfaertn, bltx TO x +31i ; RT 16,0 
BRIGHT l, INK skaerm;£*i< to <+3 

II 

5035 GO SUB flyt IF fy<=0 THEN 

GO SUB out 

503? GO SUB print 

504.0 IF X =71 AND a =17 THEN LET ; 
=P +500 FOR 3=0 TO 40 SEEP .003 
,3 LET fu=fU+25: PRINT RT 20 - 
INK 4;fu: NEXT 3: PRINT RT 11 - 
INK 7;" FULDE TRNKE. LE 

T s *=" f y Souu) L telngls ffunil' 
5100 IF x > =37 AND a=16 OP a=13 - 
HEN LET s*="kr(eh)(shi wifthig- 
owind": GO SUB ex 2 ; GO SUB print 
PRINT RT 16,0;" 

”,RT c,b, OUER 

1; INK s; "IJ", AT 11,7; OUER 0. 

"■ RETURN 


5900 NEXT X' PRINT RT 11,9 INK 

7; " 

5910 IF fu < =200 THEN LET fu=l 
59£0 PRINT RT c,b, INK 5 OUER 1 
; "IJ" RND CO-1 
5990 RETURN, 

6000 REH kudskrivning* 

S0£0 PRINT RT £0,0; BRIGHT 1 IN 
K 4;"BENZIN:", fu; " ";RT 20,15,"P 
OINT:“;p,RT 21 , 1 ;c*( TO LEN c*+( 
LEN C*<11)+11*(LEN c*>11)) ; " 

RT £1,15;"TOR : " ; h 

6030 IF C*=" " THEN GO TO 6500 

6100 RETURN _ 

6500 PRINT RT 0,0; INK 6 . 


6501 PRINT RT 8,0; INK 6 " -IS 
OUER" 

6505 IF P >h THEN LET h=p BEEP . 
1,10: BEEP .1,15 BEEP . 1, £0 PR 
INT RT 21,21, INK 4, FLRSH 1.h 
FOR f=l TO 5 POKE 60016,f LE T 
qd =USR 60000 NEXT f 

6506 LET s* = "g(aa)i» (eo)v(en" 

6507 IF INKEY*<>"" THEN GO TO 65 
07 

6510 FOR f =30 TO 40: BEER ,005 f 
: NEXT f 

6515 IF INKEY*="" THEN GO TO 651 

65£0 CLS : LET ft=l 

6600 RETURN 

3000 REM *indt«dning* 

3005 PRINT RT 2,11; INK 6; B.L.K 
OG L.0" 

3O10 PRINT RT 6,13, BRIGHT 1 IN 
K £, "KONTROL RT 8,13; "OP O'- 
RT 10,13,"NED A";AT 12,9,"DU 3K 
YDER MED Y" AT 16,3;"TRYK PRR EN 
TR5T *" 

30£O IF INKEY* < >"" THEN RETURN 
3030 FOR f =0 TO 60 STEP 6 BEEP 
.005, f: NEXT f: FOR - f=60 TO 0 ST 
ER -6: BEEP .005,f: NEXT f GO T 
0 S0£0 " 

9000 FOR g =1 TO 13 RERD a* FOR 
f =0 TO 7: RERD a POKE USR a*+f 
,a NEXT f NEXT g 
9O10 FOR f=60000 TO 60021: RERD 
a POKE f,a: NEXT f 

9051 DATA a"-BIN 00010001.BIN 0 
0010011,BIN O0010011,BIN 0001001 

I. BIN 00011111,BIN 01001111,255, 
255 

9052 DATA b",128,BIN 11000010,B 
IN 11000011,BIN 1100OO11,BIN 110 
00011,BIN 11011011,255,255 

9054 DATA "C" 123,132,BIN 101001 
00,BIN 11100100,BIN 11110100,SIN 

11110100.BIN 11110100,255 

9055 DATA "d",0,0,0,0,0,BIN 0100 
0101,BIN 01000101,255 

9056 DATA "e",255,255,BIN 111001 

II, BIN 1100011,BIN 0100011,BIN 0 
100011,BIN 0100001,0 

9057 DATA "f",255,255,255,BIN 00 
111001,BIN 00110001,BIN 00110001 
-BIN 00100000,BIN 00100000 

9053 DATA "g 0,BIN 11100011 SIN 
00101111,£55,BIN 00101111,255-4 

7.BIN 111OO011 

9059 DATA "h",0,BIN 11100000 123 
,BIN 11111100 £55,BIN 11110000,1 
23,BIN 11100000 

9060 DATA "i",1,2,7,3,BIN 001110 
00,3,3,7 

9061 DATA j" BIN 11111100,2 BIN 
11110010,14,14,12,3,BIN 1111000 

0 

9062 DATA k",0,0,0,0,255,0,0.0 

9063 DATA 1 t" BIN 11110010,BIN 0 
0001101,BIN 11110110 BIN 0010111 
l.BIN 11000111,BIN 0O0110O1,BIN 
1110110,BIN IIOIOOIO 

9064 DATA “in" BIN 10001008 BIN 8 
0010010,BIN 00110011,BIN 1100010 
0,BIN 11111010,BIN 00101000,BIN 
00100100,SIN 80010010 

9070 DATA 33,0,0,6,255,17,1,0,19 
7,229,205,131,3,£25,193,17,3 8.2 
5,16,240,201 
9999 RETURN 


5 LET l=.4 BEEP 1,7 BEEP . 
9: BEEP i.,5 BEEP 1,-2 BEEP ,*i 
.5,5 PAUSE 25 BEEP 1.5 BEEP ' 

-2 BEEP 1,10: BEEP 1,14 BEEP 
1*1.5,12 

6 CLS 

10 FOP f=l TO 60: INK RND* - P 
LOT RND*255 -RND* 175 NEXT •’ 

100 LET a*= ABIUABADBOACeMeM: 
RCCACDBLKGHLO" 

110 LET bs=a*+as*as+a* 

130 PRINT RT 19,0 BRIGHT 1 IN 
VERSE 1; INK s kaerm, 

PRR5EC jr 81 1 

135 PRINT RT 8,0, INK 2 OVER 1 
’GH" 

13? PRINT RT £0,1, BRIGi+T 1 IN 
K 4;" FUEL fu;RT 20,15 SCORE 

P RT 21,1, c S;RT 21,15 MIG" 

h 

140 FOR 1=1 TO LEN bt-31 

150 PRINT RT 13,0; BRIGHT 1 IN 

k I kaeris, b*)Z to 2+31' 

160 GO SUB f lyt 
170 GO SUB a*ud 
130 GO SUB inv 

' HCT 


190 GO SUB print IF f t a 1 —- 
GO TO 3 
200 GO SUE ask 
210 IF fu 290 THEN GO SUB 
220 IF fu'50 THEN GO SUB out 
300 NEXT : 

310 GO TO 140 
1000 REM * fly t * 

1015 PRINT RT a,0. INK 0-2+2- 
€ r(B, 2, OVER 1, "GH" 

1020 LET i n = IN 65022 LET ml 
64510 LET a =a + (in =£54 OR in 
0 RND a 211 - >' (i n 1 =£54 OR inl = 
) RND a>0) LET fu = fu- 6 * i in 1 = 
OR inl=190i-2*(in=254 OP in: 
)-4* (in-: >254 RND in 0 190 RND 
>254 RND in1<>190) 

1030 PRINT RT a , 0 INK. 0 / 2*2 + 
e rn /£•; OUER 1 , "GH" 

1040 RETURN 
1100 REM -task* 

1110 IF a<13 THEN RETURN 
1115 LET s* = "kr (eh) (an ' raiit- 
r tow)nd" 

1120 GO SUB e 2 
1130 RETURN 

1200 REM *OUt Of fuel* 

1205 PRINT RT 15.0;" 

1210 PRINT RT 11,2; INK 3 DL 
LOBET TOR FOR BRREND5T0= 
s*= sor(ee) y(ouu) aaA (OM't 
f y (o u u) t" 

1215 PRU3E 1 

1220 FOR f=a TO 13: BEEP . 01 . 
f LET a = f: PRINT RT f , 0 INK 
"GH" FOR 9=1 TO 10 NEXT 5 
NT RT f , 0 J " ': NEXT f GO 3u 

x 2 

1230 PRINT RT 11,2;" 

1240 RETURN 
1388 PEM -= • : >'t* 

131.0,, PRINT A - 19,0: INVERSE . 
right 1 ; - ink. skaerm, " 

PARSEC Jr " PRINT 

lSYO; INK skaerin; BPIGH” i : 
TO 2+31) PRINT AT 19,26, I'- 
SE 1 , BRIGHT 1 , ink skaerm : 
kae f» 

1320 RETURN 

1500 REM *e *. = p tos i on af runs. 
1510 LET u =0 PRINT AT a 0 : 

1; INK 2, PARER 7; FLASH 1 
GH T 1 LM" POKE 60003.1 P'O- 
0013,1 FOR f=l TO 5 LE - qq: 

50800 NEXT f IF tl: THE 

ET :*=:$• to LEN c*-3) FOR ■ 
TO 200 NEXT f- PRINT AT 5 8 
LET a=3 

1520 LET fu =1008 PRINT AT a 
OVER 1. INK 4 - "GH" 

1590 RETURN 

1999 REM **kvd* 

2000 LET in =IN 57342: IF in=£ 
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10 PRINTS- 

30 FORJ=49132T049152+595 
60 REPO X * POKEJ,X s U=U+X 
70 NEXT J 

80 IFU< >77887 THEN PRINT"FEJL I DATA “!END 
90 PRINT’DATA OK." 

92 PRINT“SAVES SOM ’SPRITE BASIC'" 

95 A*=”SPRITE BASIC"1 POKE 187,PEEK< 71) 

97 POKE 188,PEEK<72):A=PEEK< 188>*256*PEEK< 187) 
100 POKE 183,PEEK<A > s POKE 187,PEEK<A + l) 

102 POKE 188,PEEK< A+2)s P0KE251,0 * P0KE252,192 
104 POKE 183,1:POKE 136,1SP0KE780,251 
106 POKE781,85SP0KE782,194 

108 SYS63496 s END 

109 REM 

110 DATA 83,80,32,73,84,69,83,68,86,73 
120 DATA 68,69,77,83,76,84,73,67,80,76 
130 DATA 63,67,69,82,83,70,65,82,86,69 
140 DATA 33,80,66,76,79,75,75,79,76,76 
130 DATA 73,83,73,79,76,76,73,66,237,192 

160 DATA 49,193,117,193,143,193,220,193,14,194 
170 DATA 45,194,67,194,169,192,141,9,3,169 
180 DATA 75,141,8,3,96,32,113,0,201,95 
190 DATA 240,6,32,121,0,76,231,167,32,94 
200 DATA 192,76,174,167,162,0,32,113,0,137 
210 DATA 0,197,232,224,6,144,243,169,0,141 
220 DATA 253,207,133,251,169,192,133,232,160,0 
230 DATA 177,231,217,0,197,208,8,200,192,6 
240 DATA 144,244,76,136,192,162,6,238,253,207 
250 DATA 230,231,202,208,231,165,251,201,64,144 
260 DATA 223,169,0,76,233,174,173,235,207,10 
270 DATA 170,189,48,192,133,231,189,49, 192,133 
280 DATA 232,108,231,0,170,169,1,224,0,240 
290 DATA 4,10,202,208,232,96,32,113,0,32 
300 DATA138,173,32,247,183,163,20,201,8 ,176 
310 DATA 1,96,76,72,178,32,233,174,32,138 
320 DATA 173,32,247,183,163,20,201,2,176,238 
330 DATA 96,32,233,174,32,138,173,32,247,183 
340 DATA 163,20,201,16,176,222,96,32,186,192 
330 DATA 32,174,192,141,233,207,32,205,192,201 
360 DATA 0,240,12,173,233,207,13,21,208,141 
370 DATA 21,208,76,20,193,173,255,207,73,233 
380 DATA 43,21,208,141,21,208,32,203,192,201 
390 DATA 0,240,10,173,233,207,13,28,208,141 
400 DATA 28,208,96,173,233,207,73,233,43,28 
410 DATA 208,141,28,208,96,32,186,192,32,174 
420 DATA 192,141,235,207,32,203,192,201,0,240 
430 DATA 12,173,233,207,13,29,208,141,29,208 
440 DATA 76,88,193,173,233,207,73,235,43,29 
450 DATA 208,141,29,208,32,203,192,201,0,240 
460 DATA 10,173,255,207,13,23,208,141,23,208 
470 DATA 96,173,255,207,73,253,43,23,208,141 
480 DATA 23,208,96,32,115,0,32,138,173,32 
490 DATA 247,183,165,20,201,16,176,10,141,37 
500 DATA 208,32,221,192,141,38,208,96,76,72 
310 DATA 178,32,186,192,10,141,233,207,32,233 
320 DATA 174,32,138,173,32,247,133,163,20,174 
530 DATA 253,207,157,0,208,163,21,201,2 ,176 
540 DATA 223,168,138,74,32,174,192,192,1,144 
350 DATA 9,13,16,208,141,16,208,76,202,193 
560 DATA 73,235,45,16,208,141,16,208,32,253 
370 DATA 174,32,138,173,32,247,183,165,20,174 
380 DATA 233,207,137,1,208,96,32,186,192,141 
590 DATA 255,207,32,221,192,174,253,207,157,39 
600 DATA 208,32,205,192,201,1,144,13,173,255 
610 OATA 207,32,174,192,13,27,208,141,27,208 
620 DATA 96,173,233,207,32,174,192,73,255,45 
630 DATA 27,208,141,27,208,96,32,186,192,141 
640 DATA 255,207,32,253,174,32,138,173,32,247 
650 DATA 133,165,20,201,11,144,7,174,255,207 
660 DATA 157,248,7,96,76,72,173,32,186,192 
670 DATA 32,174,192,45,30,208,240,3,76,78 
880 DATA 194,32,115,0,201,38,208,249,96,32 
690 DATA 186,192,32,174,192,43,31,203,240,237 
700 DATA 32,233,174,76,160,168 



Sprite 

Basic 



■ Sprite Basic til Commodore 
64 giver dig 8 nye komman- 
doer til styring at sprites. 

Disse kan indtastes som al- 
mindelige kommandoer, 
dog med en pil-venstre loran. 
Ndr programmet er indtastet, 
laver den BASIC programmet 
om til maskine-kode, hvorel- 
ter dette skal lcegges ned pd 
bdnd. Siden skal det loades 
med LOAD " ",1,1. De ekstra 
kommandoer er: 

Sprite nr,on/o(f,multicolor 
(on/off) 

Udvide nr,x(on/ofl).y(on,o(f) 
Multic mcl,mc2 
Placer nr.x.y 

Starve nr.tarve.prioritet til tekst 


o = hoj 
1 = lav 

Spblok nr.bloknummer 
(11-255) 

kollis nr.linienummer: 
kollib nr.linienummer: 
on=l 
off=o 

nr=spritenummer(0-7) 

De otte kommandoer er selv- 
torklarende pd ncer kollis og 
kollib. De skal begge inde- 
holde sprite nr. og deretter det 
forste linie nummer pd den 
subroutine, som computeren 
skal hoppe til, hvis der sker en 
kollision. Det kan sammenlig- 
nes med It then go to.D 

Bo Johansen 
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50 MODE 2 : fact-1 
60 GOSUB 100 
70 GOSUB 360 

80 GOSUB 390 // / 

90 GOTO 410 / A' 

100 REM rutin© der fastsaetter attack , decay.- sustai n 09 release l rZ. 
110 REM for ENV ud fra indtastede tal l\ 

120 PRINT "FD attack tid 1 - 127 Churidrededele sek >" 

130 PRINT "0 decay tid 1-127 (hundrededele sek)" 

140 PRINT "S’ sustain niveau 1 - 15" / --==== 

150 PRINT "R> release tid 1 - 127 (hundred©le sek)" [ IfC — 

160 INPUT "indtast fl.-D.-SjR "; at i d4.- dtid4 > susl4, r t id4 Xwv — 

170 IF atid4< 15 THEN 190 \VV- 

130 ass4= 1 : aas4= 15 = ast4= I NT< at i dV15 ) = GOTO 200 \ \(V 

190 ast4= 1: aas4=at i d4 : ass4=IHT< 15/a.t i d4) * 

200 i 1 ev4= 15-< aas4*ass4) 

210 ddroP 4= 15-sus l 4 

220 IF dtid4<ddroP4 THEN 240 - — 

230 dss4=-1 • das4=ddroP 4 ■ dst4=C I NT(dt i d^/ddroP 7;) • GOTO 250 \ 

240 dst4= 1 • das4=dt i d4 • dss4= I NT(ddroP 4/dt i d4) ! dss4=dss4*-1 \ i 

250 IF rtid4<susl4 THEN 270 \ 

260 rss4=-1: ras4=sus l 4 : rst4=C I NT(rt i d4/sus l 4) ; GOTO 230 

270 rst4=l: ras4=rtid4 1 rss4=CINT( susl4srtid4 > ; rss4=rss4#-l _ 

230 sust4=dur4-at i d4-dt i d4-r t i d4 W 

290 IF sust5«l THEN sust4*l 

300 t24=tl4/2 \ 

310 t34®tl4/'3 
320 ZONE 6 

330 PRINT "start".- "attack"-, "decay "sustain",-.- "release" 

340 PR I NT i l ev4.- a as 4.- ass '-;, ast'C.- das’;> dss4 > dst-4, 1, Q- sust X , ras4rss4 > rst 
350 RETURN 

360 INPUT "tonelaen9de <i hundred©le sek) "jdur4 
370 GOSUB 170 REM 9enbere9n ENV Paramet-re 
330 RETURN 

390 INPUT "overtoneniveau for 2. o9 3. harmoniske (0-7)" > v24.-v34 
400 RETURN 

410 REM rutinen omsaetter tasterne til toner ^ 

420 REM tasterne i raekke z-/ er de hvide tan9enter j^Hk 

430 REM tasterne mellern s o9 ] 9iver de sort© tan9enter 

440 P4=0 H 

450 k*=INKEY$ REM to empty input buffer ' ^ 

460 IF k$="1" THEN GOSUB 100 

470 IF k*="2" THEN GOSUB 360 




IF k$="3" THEN GOSUB 390 
IF k*="4" THEN fact=fact*2 
IF k$="5" THEN fact-fact^ 

IF NOT INKEYC71 ) THEN P4=478 
IF NOT I NKEYC 60) THEN P'4=451 
IF HOT INKEY< 63) THEN P4=426 
IF NOT I NKEYC 61) THEN P4=402 
IF NOT IHKEY<62) THEN P4=379 
IF NOT INKEY<55) THEN P4=358 
IF NOT INKEYC52) THEN P4=338 
IF NOT INKEYC54) THEN P4=319 
IF NOT INKEYC 44) THEN P4=301 
IF NOT INKEYC46) THEN P4=284 
IF HOT I NKEYC. 45) THEN p4=268 
IF NOT INKEYC38) THEN P4=253 
IF NOT INKEYC39) THEN P4=239 
IF NOT INKEYC36) THEN P4=225 
IF NOT INKEYC31) THEN P4=213 
IF NOT INKEYC29) THEN P4=201 
IF NOT INKEYC30) THEN P4=190 
IF NOT INKEYC22) THEN P4=179 
IF NOT INKEYC19) THEN P4=169 
IF P4-94 THEN 410 
44=P4 

IF P4O0 THEN 740 

GOTO 460 

REM 

REM rutine der sPiller tonerne 
REM 

P4=P4*fact 

o4=P4/2 

o24=P4/'3 

ENV 1 - aas4.- ass4, ast4, das4, dss4, dst" 
SOUND ljP4j0.-ilev4.-l 
SOUND 2, o4, dur-4 > v24 
SOUND 4,o24,dur4 j v34 
GOTO 4 


Amsynth 


Dette program kan vcere en 
stor hjcelp for dem, der synes 
at ENV-kommandoen pd 
Amstrad er forvirrende. Pro- 
grammet simulerer en syn- 
theziser. forstdet pd den md- 
de at man kan indtaste vcer- 
dier for Attack, Decay, Susta¬ 
in og Release, hvorefter prog- 
rammet udskriver de tilhoren- 
de vcerdier til ENV. De to ned- 
erste rcekker pd tastaturet 
kan derefter bruges til at spil- 
le nogen toner med den 
valgte ADSR. 

Attack er det antal hundrede- 
le sekunder, tonen er om at 


, 1,0 j sust4.- ras4.- rss4.- rst4 


nd op pd fuld styrke. Decay 
er det antal hundrededele se¬ 
kunder. tonen er om at falde 
til sustain-niveau. Sustain skal 
ligge mellem 0 og 15. Relea¬ 
se er det antal hundrededele 
sekund tonen er om at fade 
helt ud. Mens man spiller kan 
A, D, S og R cendres individu- 
elt, ligesom oktaven kan flyt- 
tesop og ned. 

1 cendrer ADSR 

2 cendrer tonelcengde 

3 cendrer overtoneniveau 

4 flytter en oktav ned 

5 flytter en oktav op □ 

J0igen Rasmussen 
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Meteor 


20 
30 
40 
50 
60 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
230 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4 10 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
530 
590 
600 
6 10 
620 
630 
640 
650 


■ I Meteor tifCBM-64 gcelder 
det om at unslippe en at de 
store tarer i universet, de store 
meteoritter, som svcever 
rundt og bliver tiltrukket at de 
enorme planeter. Program- 
met er meget struktureret op- 
bygget med en masse rem- 



REM * INITIALISERING * 

REM **************** 

PRINTCHR*C 147):RESTORE:G0SUB 1080 
P0KE53281,0:P0KE53280,0:P0KE650,123 
CLR:K = 3•S=5:B =1:F=-5:V=53248:L=54272 

P0KE2040,192 : P0K.E204 1 , 193:P0KE2042 ,194 : P0KE2043,195:P0KE2044,196 
F0RQ=0T062:REA0A:P0KEQ+12233,A:NEXT 
F0RQ = 0T062:READA:POKEQ +12352, A :NEXT 
FORQ =0T062:READA:POKEQ +12416,A:NEXT 
F0RQ = 0T062:READA:POKED +12480,A:NEXT 
F0RQ=0T062:READA:POKEQ+12544,A:NEXT 

POKEV+39,1:POKEV+40,7:POKEV+41,2:P0KEV+42,15:POKEV+43,13 
POKEV+23,3:POKEV+29 ,3 
PRINT CHR'f < 147 > : POKEV+2 1,0 

FORQ = 0T0100:Z = INT< 999*RND< 1)):POKE 1024+2,46:POKE1024+Z +54272,7:NEXT 
FORQ=1944T02023:POKEQ,160:POKEQ+54272,9:NEXT 
F0RQ=OTO2:POKEQ+1921,160:POKEQ+56193,13:NEXT 
F0RQ=0T039:POKEQ+1104,45:POKEQ+55376,1:NEXTQ 
REM ********* 

REM *3TYRING* 

REM ********* 

X=160:Y = 205:POKEV+ 7,0:POKEV+30,0:POKEV+2 1 ,0 

FF=1NT< 200*RND( 1 ) +25) :CC=8:SA=17:C = X:F=F+5: IFRND< 1)>.35THENCC =16 
F0RQ=0T0255STEPS:PRINT"SU*1BKIBE“K"B UPOINT “F "■ H3ANE "B 
Y=Y +.5:I=Y:0=0:P=0:N=PEEK<56320)-117:X=X+3*< N=60RN=5)-8*<N=20RN=1) 

Y = Y + 2*( N=90RN = 50RN=1>-2*< N=3) 

X = X+8*< X > =255 ) -8 *( X< =0) : Y = Y + 2*< Y>=205) 

IF Y< 60THEN 1000 
IF PEEK< V + 30 ) =9 THEN GOT0830 
IFY<ITHEN 0=2:P=4:G0SUB760 
POKEV+21,1+CC+O 

POKEV,X:POKEV+1,Y:POKEV+2,X:POKEV+3,Y+25 
POKEV+4,X:POKEV +5,Y+25 s POKEV +21,1+CC+P 
POKEV +6,C:POKEV+7 ,Q:POKEV+8 ,FF : POKEV+9 ,Q 
POKEV +2 1 ,1+CC+0 
POKEV + 21 , 1+CC+P 
IF Y > =I THEN POKEL +4,123 
IFPEEK< V+30)=SA THEN GOSUB 770 
NEXT 
G0T0240 

REM ************** 

REM *DATA RUMSKIB* 

REM ************** 

DATAO, 24,0,0,24,0,0,60,0,0,60,0,0,126,0,0,126,0,0,255,0,0,255,0,1 ,255 
DATA 1,255,128,1,255,123,1,255,123,1,255,123,1,255,123,1,255,128,1,255 
DATA 123,1 ,255,128,0,24,0,0,60,0,0,126,0,0,255,0 
REM ************** 

REM *DATA FLAMME1 * 

REM ************** 

DATAO,56,0,0,120,0,0,124,0,0,124,0,0,252,0,0,252,0,0,126,0,0,63,0,0,63,123 
DATAO,127,192,0,255,192,1 ,255,192,1,255,192,3,255,192,3,255,123,1 ,255,C,0 
0ATA254,0,0,124,0,0,60,0,0,60,0,0,24,0 
REM ************** 

REM *DATA FLAMME2* 

REM ************** 

DATAO, 24,0,0,60,0,0,62,0,0,127,0,0,255,123,1 
DATAO , 1 ,252,0,1 ,254 ,0,0,255,0,0,127,123,0,63 
DATA62,0,0,62,0,0,28,0,0,56,0 
REM ************* 

REM *DATA METEOR* 

REM * * * * * * * * * * ** * 

DATA6 ,0,0,7,28,0,15,190,0,3 1 ,255,0,63,254 ,0,127,252,192,255,253,240,255 
DATA253,243,127,255,243 ,255,255,252,255,255,254,255,255,255,127,255,255 
DATA 127,255,254,63,255,255,63,255,255,31,255,254,13,255,254,13,255,252,3 


scetninger, sa den kreative 
programmar kan bygge vi- 
dere pd det. Men de kan 
selvtalgelig alle undlades. De 
symboler, der er i nogle print- 
scetninger er cursor- og farve- 
symboler. Ellers er program¬ 
mer selvforklarende. □ 

Carslen Kock 


1 > 



255,123,3,255,0,3,255,0,1,254 
123,0,63,0,0,127,0,0,127,0,0 
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DATA127,252,0,60,56 
REM ************** 

REM *0ATA SATELIT* 

REM ************** 

DATAO,2,0,23,1,0,22,0,123,16,1,64,24,222,32,13,254,0,3,255,0,7,131,123,7 
0ATA3 1,128,15,131,132,15,255,132,15,231,240,7,231,144,7,231,150,3,255,20,1 
0ATA254,30,1 ,20,4,0,43,6,0,120,0,0,|52 ,0,0,0,0 
REM *********** 

REM *LYDRUTINE* 

REM *********** 

P0KE54236,15:POKEL+5,68:P0KEL+6,63:POKEL,25:P0KEL+1,5:POKEL+4,123:RETURN 
P0KE54236,15:POKEL+5,63:POKEL+6,63:POKEL,37:POKEL+1,17:POKEL+4,33 
POKEL +4,32:SA =255:F =F+25:CC=0:RETURN 

P0KE54236,15:POKEL+5,1O:POKEL+6,63:POKEL,13:POKEL+1,1:POKEL+4,123:RETURN 
REM ************* 

REM #SAMMMENSTOO * 

REM ************* 

G0~JB730 : F0RW = 0T050 : P0KE532S 1,0: P0KE5323C , 255 

P0KE5323 1 ,255 : P0KE53230,0 : NEXTLI 

K=K-1:POKEL+4,123:IFK=0THEN300 

P0KE53231,0:P0KE53280,0:POKEV+21,0:GOTO 150 

REM ********** 

REM *SLUTNING* 

REM **###*#*** 


POKEL +4,123 

PR I NT " J” : POKEV+2 1 ,0:P0KE53231 ,5:P0KE53230 .5: PRINT" MF OVER" 

PRINT"HBSBIffl!BaaMVIL DU PROVE I GEN J/N" 

GET A*:IF A* ="J"THEN40 


IF A*="N" THEN END 

GOTO 330 

END 

REM ********* 

REM *NY BANE* 

REM ********* 


POKEL+4,128:B=B+1:P0KEV+21,0:PRINT"J" 

PR I NT" ILL YKKE DU GENNEMFORTE “ : PR I NT 

PRINT"aaa2KEHELD OG LYKKE MED BANE"B:S=S+5:F=F+50 
FORO =OT03O00:NEXT:GOTO 150 


REM ******************* 
REM *START/INSTRUKTION* 
REM *##****###******##* 
P0KE53231,7:P0KE53230,7 


PR INT" J" :FORG = 0T026:PR INT:NEXT 


PR INT" 
PRINT" 
PRINT" 
PRINT" 

PR INT" 
F0RQ=0T03: 


* * * * * * * * 
*** * * 

* * * * * 

* * * * 

* * *** * 

RINT:NEXT 


**■* 

* 

** 

* 

*** 


*** 
* * 
* * 
* * 
* * * 


** 

* * 
** 

* * 
* * 


PR I NT " iM I 111111 KRKRKKE Y C.W.K." 

FORG =0T0 100 : P0KE5328 1,2: P0K.E53280,7 : P0KE5328 1,7: P0KE53230,0 : NEXT 
PR I NT " J" : PR 1 NT 11 MMBBWM JU ER KAPTAJN PAA ET RUMSKIB" 

PRINT:PRINT”EN FARE AT VEO FLYVE RUMSKIB ER AT MAN" 

PR INT"KAN BLIVE RAMT AF EN METEOR INOEN MAN" 

PR INT"SLIPPER FOR TYNGDEKRAFTEN" 

PR INT"SAA PAS PAA! ! !» 

PR INT:PR INT"DU FAAR FOR HVER BANE 50 POINT" 

PR INT"FOR HVER LOBSKE SATELIT 25 POINT" 

PRINT-OG FOR HVER METEOR DU SLIPPER FORBI " 

PR I NT "5 PO I NT" : PR I NT: PR I NT "HELD OG LYKKE " : PRINT " «»l>r;T;T;T;T;T;T;T^-T-T-T-i3 [- r ^ 


RETUR 


GETAS: IFA* = CHR*( 13)THEN RETURN 
GOTO 1260 

REM #*.#****.#***###** 

REM * METEOR BY * 

REM * CARSTEN KOCK * 

REM * URTEHAVEN 12 * 

REM * 4300 HOLBAEK * 

REM **************** 
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$0$laa 


■ Du er kaptajn p& det vceldi- 
ge slagskib "Fearless". Den 
fjendtlige eskadre er lor et 
ojeblik kommet ind i rcekke- 
vidde af dine 15 tommer ka- 



1 REM ****SKIBS SKYDNING**** 

2 FOR 1=0 TO ?■ READ a: POKE USR "A"* 
I,a: NEXT 1 

3 DATA BIN 00000000.BIN 11100000.BIN 

11]00000)BIN 0)111111,BIN 00111111.BIN 0 
0011111,BIN 00001111,BIN 00001111 

« FOR 1=0 TO 7: READ a: POKE USR "B"' 
«,a: NEXT I 

5 DATA BIN 00111111,BIN 00111111,BIN 
11111111,BIN 11111111,BIN 11111111,BIN 1 
1111111,BIN 11111111,BIN 1111111) 

6 FOR 1=0 TO 7: READ a: POKE USR "C"t 
‘ ,a : NEXT I 

7 DATA BIN 00000000.BIN 00000000.BIN 
111111101 BIN 11111110,BIN 11111100,BIN 1 
1111100,BIN 11111000,BIN 11111000 

8 FOR 1=0 TO 7= READ a: POKE USR "D"t 
I,a: NEXT I 

9 DATA BIN 00000000.BIN 00000000,BIN 
00011110,BIN 00011110,BIN 00001100.BIN 0 
0011)11,BIN 00011111,BIN 00111111 

10 FOR 1=0 TO 7: READ a: POKE USR "E"* 
I,a: NEXT I 

11 DATA BIN 00000000,BIN 00000000.BIN 
00001100,BIN 00001100.BIN 00001100.BIN 0 
0011111.BIN 000111)1,BIN 00111111 

12 LET HJ=0: LET F0=0: LET SC=0: LET A 
*=” ! " : LET <\=21 : LET p=0 

13 CLS : PRINT AT 10,01'HUOR I1ANGE FOR 
S0G OIL DU HAUE?" : INPUT ;A: PRINT AT 20 
,0 1 "0.B.S:SUAERHEDSGRAD 1 ER DEN SUAERES 
T£": PRINT AT 10,01 "SUAERHEDSGRAD (1-503 
?” : INPUT R 

14 PAPER 0: BORDER 0: INK 7 - BRIGHT l: 
CLS : LET 8=29: LET C=A: LET Y=0 

15 PRINT AT 0,01 SCORE="iSCi 

16 PLOT 0,87= DRAW 255,0: PRINT AT 9,1 
-Bl BRIGHT 0i"d": PRINT AT 10,Bi BRIGHT 
01 "abc " : PAUSE 5: PRINT AT 9,l*Bl BRIGHT 

01 "e" : PAUSE R: BRIGHT 1: PRINT AT 9,1* 
Bi" ": PRINT AT 10,Bj" ": PRINT AT 8, 
151"!": PRINT AT 12,J5 1"!" 

17 IF INKEY$="0" THEN LET P=1 

18 IF P = 1 THEN PRINT AT 4,151" ": LET 
4=4-2.75: PRINT AT 4,151" " 

19 IF 4=10 AND b=15 THEN LET SC»SC*10 
: LET P=0: LET 0=21: LET Y-Ytl: FOR A=0 
TO 60: BEEP .005,10: BEEP .005,20: BEEP 

.005,A-20: BEEP .005,A: NEXT A: PRINT AT 
0,0i"SCORE = "ISC 1: IF SC=100 OR SC=]000 
OR SC=5000 THEN GO TO 35: GO TO 15 

20 IF Q=10 THEN PRINT AT 10,14 1 "s !/" : 
LET P=0: LET Q=21: FOR A=0 TO 20: NEXT 

A: PRINT AT 10,141" 

21 IF b =0 AND c =0 THEN GO TO 1 

22 IF b=0 THEN LET b=29: LET c=c-l 

23 IF c =0 THEN PAUSE 150: GO TO 25 

24 LET B-B-l: PRINT AT 0,181"FORS0G="1 

Cl.GO TO 16 

25 CLS : PRINT A1 10,31 DU RAHTE "ISC' 
101" UD AF "1A; HULIGE" 

26 PRINT AT 12,2 1 OIL DU PR0UE IGEN 
(J'N) " 

27 IF INKEY*="N" THEN GO TO 32 

28 IF INKEY$ = "n •' THEN GO TO 32 

29 IF INKEY*="j" THEN GO TO 12 

30 IF INKEY$="J" THEN GO TO 12 

31 GO TO 27 

32 CLS : PRINT AT 10,01'DET UAR TARUEL 

IGT PRINT AT 14,21'HUIS DU FORTRYDER 

TAST J": FOR (4=0 TO 1000: IF INKEY*="J" 
OR INKEY*="j" THEN GO TO 12 

33 NEXT A: PRINT USR 0 

35 PRINT AT 16,13; BONUS' 

36 FOR S=0 TO 10: BEEP .005,10: BEEP . 
005.20: BEEP .005,30: BEEP .005,10: BEEP 

.005,20: BEEP .005,10: BEEP .005,40: NE 
XT S 

37 FOR S=0 TO 4: BEEP .2,2: BEEP .2,10 
' BEEP .2,7: BEEP .2,12: BEEP .2,12: BEE 
P .2,10: NEXT S 

38 FOR S=0 TO' 99. lET SC-SC+1: PRINT A 

T 0,0, SCORE="ISC: BEEP .005,10: BEEP .0 
05,2; NEXT S- PRINT AT 16, 131 : GO 

TO 15 






















Gode miner til 

slot soil 

B M ■ ■ REf1CL0SE*»* 00B - V • *» 

■ ■ 

™ ™ ™ ™ 30 PRINT "^SHOn«ia*»»«PL£fi :E WRIT... DEFINDING CHARACTERS" * 

100 P0KE52.48 P0KE56,48 CLR P0KE56334,PEEK<56334)AND254 
105 POKE 1 • PEEK< I >RND251 


■ I dette CBM 64 spil skal du 
styre Goblin igennem et dad- 
sensfarligi mineielt, mens du 
samler hoveder pd din vej. 
Du styrer med tasterne O og 
P.D 

Niels Lauslen 


10 RENCLOSE*** GOD - T FOR C-64 *** 

80 POKE53280,2 P0KE532S1, 1 

30 PRINT"rWHiffl»OT»MMPLEfiSE WRIT... DEFINDING CHARACTERS"; 

100 P0KE52.48 P0KE56,48 CLR P0KE36334. PEEK<5«334)RND254 
105 P0KE1 - PEEK< 1 >RND251 

108 FORN-0TO204? P0KEN*12288,PEEK(N*S3243> NEXT 
103 FORN*0TO7 POKEN* 12320.PEEK<N*S4064> NEXT 
110 IF S>HSTHEHHS=S 

112 RESTORE : B=4 Z* 1364 : Z1 *2*54272 W*0 : S=J : 0*0 

115 VS=542S6 RD=54277 SR=54273'UF=54276:LB*54272:HB=54273 

120 FORX=0TO31 RERDfl 'POKEX* 12288, A'NEXT 

123 P0KE1,PEEK<1>0R4:POKE56334,PEEK'56334>OP1 

125 P0KE53272,<PEEK(53272>AND240>*12 

130 PRINT .’B L I N" 

140 PRINT"MKB9TSPC< 17>"HS*"HS 

145 PRINT”B!HHOTfllIIHIJIIfitni»ISWIfi*Ilfirai*H15|-J=LEFT",3PC<27>, "P=R1GHT" 

150 F0RI“1T0113 

160 X=IHT<RND'0>*680)*1144 

170 IFPEEK<X)=BTHEN160 

180 POKEX.E POKEX‘54272<0 NEXT 

130 F0RI*1T036 

135 G1=0 

200 X=INT<RMD<0>«680>*1144 

210 IFPEEK < X > -BORPEEK < X > ■ 1ORPEEK < X >=3THEH200 

220 IFPEEK(X*33)=BRNDPEEK<X*40)=BRNDPEEK<X*41>=BTHENPOKEX,3'POKEX*54272.0 01 = 1 
225 IF01=1THENG1=G1*1 GOTO240 
230 POKEX,1 POKEX*54272,0 
240 NEXT 

250 POKEZ,32 : Z*2-40 21=21-40 ' IF2< 1144THENZ-Z-760 Zl-Zl*760 

260 GET A* IFR**"0"THENZ=Z-1 Z1*Z1-1 

270 IFA«="P"THEHZ*Z*1 Z1*Z1*1 

280 IFPEEK<Z>*BTHEN410 

230 IFPEEK(Z)-1THEHGOSUB330 

300 POKEZ,0 POKEZ1,0 FORT-1TO220 NEXT 

310 1FW36-GTHENJ-S OOSUB350 GOTO 110 

320 OOTO250 

330 W=U*1 S“S*25 PRINT"REHTS POKEVS,15 POKEflD,30 POKESR,200 POKEWF,17 
340 P0KEHB.71 POKELB,12 F0RT-1T030 NEXT POKEVS,OPOKEHB.0 POKELB.0 RETURN 

350 PRiNT , '«jBranBBOT<i>aBanm>nio»»*«»»i»**»»»RLL riohti******" 

355 FORI*I TO 10 GETCf NEXT REN COLLECT 

360 POKEVS,15 POKEAD,30'POKESR,200 POKEWF.17 F0RI=1T017 

370 H=INT<RND<0)«10>+21 L=INT(RND(0)*45)*210 POKEHB.H POKELB,L 

380 FORT-1TO80 NEXT'NEXT:POKEVS,0 P0KEH8-0 POKELB,0 

400 RETURN 

410 POKEZ,2 P0KEV6,15 POKEAD.30 POKESR,200 POKEWF.123 POKEHB,2 POKELB,125 

415 FORI-ITO400 NEXT POKEVS,15 POKEHB,0 POKELB,0 

420 F0RX-U44T01323 IFPEEK(XK>1THENNEXT 

430 IFPEEK<X)=1THENP0KEX,3 : NEXT 

440 3=0 

445 FORI»1TO10 GETCT NEXT 

450 PR INI” BMHUHIBiIKHONiIiWS'LIIV AGAIN? <VXN>” 'P0KE646.14 
465 0ETC» IFCF=""THEN465 
470 IFC*="V"THEN110 

430 P0KE53272.21 POKE53280,14 P0KE53281.6 P0KE52.50 P0KE56■50 PPINT'CXEE Vfl!" 
500 DRTR126.213.213,255.165.30.30,165,60,66,165-123,153.165-66,60 
510 DATA170.85,170,85,126.213,255.183,60,66,165,123,167,153.66.60 
520 DATRO,0,0,0,0,0,0,0, 


Talkode 


■ Programmet til standard 
VIC-20 kan du overscette bi- 
ncere tal til decimaltal og om- 
vendt. Programmet er selvtor- 
klarende da det selv sparger 
om de anskede oplysninger. 

Niels Jaigen Bertelsen 


lU PLII MOVfclilltlf l 
.to KKlIil mn.\ i> 11 

0 M . i • i HA . lull 

40 


ii ifi cirj.iPi 
UbSI KIKI ", 
.• - io. “;.yyy 
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►CM i M U I I ||| I I Mill -bINMbk 

I't-li'Kl U> MiK.-liy$ KtMl'Bl * Mb,. I 

i FKlhl 1 .WiUifci.il. BlH.dMI 1HKUI " WiU'tbH. ' • 1*4 b-VML'bi' 

i JP ii .yuRb ^‘<SOKb iHI • l» •iiKitll' Hi > ,l iHENlouo 

I PK1NI ■*: JW" I Ml-' JI.I ■ ' . it.TiUiLU'l. sMUMblNHbP iW- -f- - " . 1Mb' 10 •" I" 

i PukX-1 ICffc; 1 f B-B*, -y I HfcNB a B-B'X • B*'X/»"1" 

NEXT PkiNl1 mB> 4 • i>i . THB« 1U i" • lMb» 1* ■ • FuK. .-I I Os PMill bJ-:. •. HEX! PRINT 
I PKIN I I Mb' 1U ■ I' • "'AA -*-•'. lUUMM Fuk GENTHO. "." M FOR 

i PRIM “MAA > hiJb i,li> • " 

' uLIUI 1FU*» VlMfclllUUO 
i lHJ|»"H"lHfcMlU 
' 1HJ*- •>" IHbMLiUUU 
• I ij I u*u KbH oUJ l kkucti i 
'* KtH Pkoct* biHMbk-ianuiL 

kbilijkb CLP I IU» KbMbM> Mbiil 

I klhl '.Wittilll.-HfcUI.«WM-' INPUT"iMblN. MJDb ",fcU lFLbN'bll > .^dlH 

bUkXMftftf inill'l-bu..-., 1 •-"1" IHbUU=lKb' V.> oUlOtUoO 
I 1» MllU'bll.... l >* O"THEN2lte0 
1 uOiUtUuy 

I !«.;;! KklHI' .11J" I Mb' 11 I" . iTiTilb JM. iTsMsI I'iTittibCM. *, "JA -1-" - TMfct' 1 

I PK1HI -Mr • bl1.1 Mb« 11 f. " I M . FHb» 14/.D. TMb' 11 / . ” I". "'AA—— 1 -“ 

i FKlHr NlMMiM FUR uEHThU. M FUR MENU. " . " HAA 5 FUR SLUT'" 

i Ob 1UJ 1FUF• "O'* IHbNi'UUU 

i 1FI.U—"M" IHbMly 

' IFUi-'^"IHLll'Aiyo 

' O'J I Ot'Oiiy KbH i-LUl RRUCE5. £ 

i REM RRUtfc: J I'UlHL-UDbkKlFr 

' Kb': IURE CLR FURX«irUi> RfcMDbi' X/ • b\ X/ HEX I 

I FF1MI ".IWJIHIML-UIIW F1F I --— S FOR STOP". " 1/sFiF UDS 

I bH'" 

1 FuFW-1 fyiyyy HbXl PRIHI '««" ihB* 18/" l M "'AMDECM. WI^WBINHER",-1- 


FOR SrOP"."tfsHF UDS 


FF: mil Mb- 1»j • I" F0RDE=uT0^55 b-bb F0RX-II08 lFI-B<X/^*yTHEND-D-B<X> B*'X/« 

1" 

y uElUF IFUF-'".»" THEN3888 

>y*>0 Nt.:i PRlHf-iTiWbE. FftB' 18/" l M THBi 1* /. F0RX=1T08 PRINTBF'X/. HEX I PRINT 
SU.U Rb81 URE F'ORX-1108 RbMbBl'X/.B'X* NEXT HEXTDE 

3U8U F'RINI ' 'AA -*-" F0RM«1T0168U NEXTM 

->y<>‘-* PRINT "NlW 0 FUR UbMTHu. "lM M FuR MEMO. ". " HA S FOR STOP!" 

Soyy OETUF ifuf="o" iHEHSyyu 
-•lyy 1FUJ- M'TMEHly 

8110 lFMJ-"8"IHtMSOOU 

Si28 GOTusOSU REM SLUT RKULbS S 

Syyy FRlNr.T END 

luyyu I'Mi m y. I28 y is4,y,s-:.y. io.8.8.u.4.y.<;.8.1 
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0 G0SUB9000iG0SU810000 

1 LI*3iPRINT-wJDOOOOO POINTS LIV 3"IU*7:G0SUB9200«LE■1iT*0 


2 P0KE3323 1 ,0 

3 GOSUB 9000 

4 P0KE30000/1:P0KE30003,0 : P0KE3000 1,0 

100 SYS25000 s I FPEEK< 30003 ) * 1 THENG0T030000 

101 IFPEEK< 30003X >2THENG0T0 120 

102 IFU s 233THENT a 1:U B 7 

103 IFU"127THENU*235 

104 IFU* 63THENU* 127 
103 IFU* 31THENU* 63 

106 IFU* 13THENU* 31 

107 IFU* 7THENU * 13 

103 P0KE30000,1:P0KE30003,0:P0KE30001,0 


109 FOP*. I90T090STCP- I »P0KC33?«9 . * • S v S?OOOC « ? »S80£00 i PO'EMZ: 3 . ISO-A HCM » «0T040 
000 

I 10 00SUB9O00iFOPP.0T0900«rCVTi IF*, l TME*P>9KE33£ 7 l ,£32iF0»E33e : ' .6.ZI 
I I I IFPECK' 1021 > >49TMEf#»0» t£04 I . I I 
1 1 8 OOTOIOO 

ieo Ptw 

200 OOTOIOO 

9000 P0KE33S69, UiP0KC?040,I 31POKE53248.200•POKES3249.I30IFES _ 0P£ 

9001 POKE93290 , IiP0KC3323I,100'P0KE2041,14 

9002 F0PA-93293T0932649TEP21P0KC*.40iNEXT 

9003 F0PP-2O42T02047IP0KE*. ISifCXTlP0KE9327| , 01P0KC33277 ,0 

9004 F0PA«33?32T033863STC»2iPOKEA,Pr®< l»«233irCXT 

9003 P0KE34296, IS • P0KE34277,190 IP0KE34279 ,243 ! POK E34276,129 i POK.E34273,8& 

9006 P0KE34272,100 

9010 F0PP.33287T033294 t READS iPOKEA,Si NEXT 
9020 PEM OATA FOP FAPVEP TIL STPITE 
9030 OATA11,1,2,4,7,9,1,3 
9100 RETURN 

9200 FORA.49132T049400 > POKEA, PNO< I»*32iNEXT IP0KE33280- 1 

9210 FORA*32TO39iFOPB-0T024iPOKE 1024 «A *8.40,160 s POKE33296 *A *B .40 , I«I«XTINEXT 

9220 F0PA-33336T036293IIF RND< I>>.3THEt#»0KEA,1 

9221 KXT 
9300 RETURN 

10000 REM OATA TIL MASKInrOOE PUT INEB 

10002 REM OATA FOR RUMSKIB 

10003 F0PA«832T0896•PEAOSiPOKEA,?I NEXT 


10010 OATAO,0,0,0,12,0.0,12,0,0,13,0,0,12,0,0,12,0.0,30,0,0,63,0,0.113,128,0,243 

10020 OATAI92,0,243.192,I,223,224,I,223,224,1,223,224,7,233,248,13,233,232.13 

10030 0ATA233,232,14,12,28,12,30,12.12,63,12,0,0,0,0,0.0 

10030 REM OATA TIL DOBBELT LASER 

10033 F0RA-704T07371 READS•POKEA,SI NEXT 

10060 OATAO,32,4,0-64,2,0,224,7 

10061 OATAO,32.4.0,64,2,0,224,7 

10062 OATAO.32,4,0,64,2,0.224,7 

10063 OATAO,32,4,0,64,2,0,224,7 

10064 OATAO,32.4,0,64,2,0,224,7 
10063 OATAO,32,4,0,64,2,0,224,7 
10100 PEM OATA FOR LASERSTRAALE 
10104 F0RA-897T0897*124iPOKEA,0«NEXT 

10103 F0RA-897T0343STEP3IREA0SIPOKEA,SiNEXT 

10110 0ATA1,2,4,13,1,2,4,IS, I ,2,4, IS,1 , 2, 4. 13 

10200 REM OATA TIL UFO’ER 

10203 F0RA-960T0991«READStPOKEA,S«NEXT 

10210 OATAO,24,0,0,126,0,1,233,128,7,233,224,31,233,248.30,68,76,31,233,248 

10220 0ATA7,233,224,I,233,128,0,126,0,0,24 

10300 REM OATA TIL STYRING3RUTINE 

10303 F0RA-20000T02007IIREAOSiPOKEA,SI NEXT 

10310 OATA174,1,220,224,247,208,13,238,0.208,174,0,208,224,233,208,3,206,0,208 
10320 OATA174,1 ,220,224,231 ,208,13,206,0.208,174,0,208.224,24,208,3,238,0,208 
10330 DATA 174,48,117,224 ,0,208,24.174,1 ,220,224,239,208,17,169,1.141,48,117,173 
10340 OATAO,208,141,2,208.173,1,208,141,3,208,96 
10400 REM OATA TIL STYR. AF LASERSTRAALE 
10403 FORA-20100T020143«READS« POKEA,S«NEXT 

10410 DATA 174,48,117,224,I,208,13,206,3,208,174,3,208,224,0 .208,3,163.0,14 I ,48 

10420 DATA I 17,174,3,208,224,1,208,6,206,2 I,208,206,2 I,208,224,143,208.6 ,238 ,2 I 

1042 I 0ATA208,238.2 I ,208,36 

10300 REM OATA TIL BEVAEGELSE AF UFOER 

10303 F0RA«20200T020269:READSiPOKEA,S:NEXT 

10310 0ATA206,3,208,206,3,208,238,4,208,238,7,208,238,7,208,238,6,203,206,9,208 

10320 0ATA238,8,208,238,8,208,238,8,208,238,11,208,238,I 1,208,238,1 I,208 

10330 0ATA206,10.208,206,I 3,208,206,I 3,208,206,12,208,206,12,208,206,12,208 

10340 DATA206,13,208,206.13,208,206,13,208,238,14,208,36 

10600 REM DATA TIL POINT TAELLER 

10603 FORA■20300T0203491REAOS «POKEA,3 «NEXT 

10610 OATA169,47,141 ,0,4,238,0,4,169,47,141,1,4,238,1,4,169,47,141,2,4,238,2,4. 

10620 0ATA36,174,2.4,224,37,208,243,174,1,4,224,37,208,230,174,0.4,224,37,208 

10630 0ATA213,24,144,207,96 

10700 REM OATA TIL TJEK RUMSKIB 

10703 FORA "20400T0204431 REAOS '• POKEA , S * NEXT 

10710 DATA 174,30,208 

10711 DATA224,3,208.3,32,132,93 

10712 0ATA224,3,208,3,32,132,93 

10713 0ATA224.17,208,3,32,132,93 


■ Dit F-16 fly er under en hvir- 
velstorm blevet suget ud 1 ver- 
densrummet. hvor du lor for- 
ste gang ser nogle mystiske ly- 
sende fartojer, de sdkaldte 
UFO'er. Flyvestation Karup 
giver dig besked pd at skyde 
dem ned med alle midler. 

Jo lcengere du kommer, de- 
sto Here retninger kommer 


UFO'erne fra. For hver gang 
svcerhedsgraden stiger. skal 
du lande for at fd afkolet din 
laser-kanon. 

Du styrer med joysticket i CBM 
64's port 1. Spillet er i maskin- 
kode. men skal indtastes i BA¬ 
SIC. □ 

Michael Lauridsen 


F-16 Defender 
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D8TA884,33,208,3.32.132,33 
D«Tf*22*»,63,208,3,32,132,33 
08T8224,123,203,3,32,132,93,36 
REM OftTA TIL TJEK UFOER 
F0R8-20S00T020630:READS:POKER,S «NEXT 

DATA 174,50,117,224,6,208,13, 162,0,206,21,208,232,224,4,208,243,32,101,79 

DATA 174,50,I 17,224,10,208,13,162,0,206,2 1,208,232.224,3,208,243,32,101,73 

DATA 174,50,117,224,18,208,13,162.0,206,21,203,232,224,16,203,243,32,101,73 

DATA 174,50,1 17.224,34,208,13,162,0,206,21,203,232,224,32,203.243,32,101,73 

DATA 174,50,117,224,66,208,13,162,0,206,2 1,203,232,224,64,208,243,32,101,79 

DATA 174,50,117,224,130,208,13,162.0,206,21,203,232,224,123,203,246,32,101 

0ATA73,174,49,117,224,6,208.3.32,132.33,36 

REM DATA TIL UFOER/SKAERhEN 

FORA»20700T020772:READS «POKEA,S«NEXT 

OATA174,5,208,224,40,203,5,169,255,141,5,208 

OATAI 74,7,208,224,255,208.5,169. 40,14 1,7,203 

OATAI74,3,208,224, 40,208,5,163,255.141.9,203 

OATA174,I 1,208,224,255,208,5,163. 40,141.11,203 

OATA174,13,208,224, 40,208,5,169,255,141,13,208 

DATA 174,15,208,224, 40.208,5,169,255,141,15,208.36 

REM DATA TIL SCROLL'STJERNER 

FORA"20800 T 02O866 i READS« POKEA , S« NE.XT 

OATA162,255,189,132,6.157,232,6,202,224,255,209,245 
DATA 162,255,139,192,5,157,232,5.202,224 ,255.2C3 , £45 
OATA162,255,189,192,4,157.232,4,202,224.255,2C3,245 
_DATA162,192.189, 40,4.157. 80.4,202,224 .255.203,245 
DATA238,54 , I 17,172 ,54,1 17,130 .0,132,169,46,157 ,30,4 ,96 
REM OATA TIL HOVEOINOHOLO 
FORA"25000T025058iREADS«POKEA ,Si'CVT 
DATA 174,30,208,142,50.I 17,32,220.30,32,2C,90 

DATA32,32.78.32,132,78.32,132,79,32.232.7® , 72,17? , 79,32 , <s4 ,9 | 

OATA174,53,117,224.1,208,6,169.I,141,2 I 32,36 
DATA I 74,21 ,208,224,1,208,6,169.2,141 ,53,117,96 
0ATA76,168,97 
REM DATA TIL DO 

FORA"24000T024005« READS«POKEA,SlNEXT 
DATA 169,1,141.53.117,36 
RETURN 
LI-LI-I 

IFLl-OTHtM FOPA «0T01000 I NEXTlPOKE53263,0•G0TC25C00 
W»PEEK< 53248 > IWW"PEEK.< 53249 » l IFW 250THEH l* £T 3 
FORE"OTO100 

P0KE53248,W-5*RN0< 1 ‘•I0IP0KE53249 ,W1«1-«*RN0 l * : 9 
NEXT 

D0SUB9000«P0KE30005,0 * POKE30001 .0lPO"E3C&0: .:«&0TC2 

ppiMT- over- 

P0KE54296 ,0 

IFPFFKf 5632LU.'2*9THFri3 , 'nio 


PRINT 1 -TAB< 12 >’MICHAEL LAUR IDSEN* ‘.PRINT- MB 

PRINTTAB-: 14 > " JQ* »*****«•«*»" 

PRINTTAB( 14>-*a.WF-16 JAGER«I» 1 
PR INTTAB< 14)-flM»imMI>- 
PRINT-1-! TAB( 17>-a3»*ME- 
PRlNT-«-»TAB< l7»-aiW-ISTRUKTI0NER- 
GETA*iIFAS""G“THENGOTO1 
IFH*"-I"THENG0T045000 
G0T035031 

FORA■1984 - 120T020231POKEA,32:NEXT 

PRINT' i TAB< PfO< A > »25 > * 

PR I NT 
PR INTTAB<34 > J * ILE 

FORA-PEEK< 53249)T0217STEP.5 IP0KE53249,A JSYS20000 
P0KE54276,33 

IFRND< 1X .5THEKP0KE53248,PEEK(53248 > ♦1 
IFPEEK< 56321)"253THENA-A.3 
P0KE54276,17 
hCXT 

i F0RA-0T020IIFPEEK<53248*31>"1THEN40030 
NEXT 

G0T030000 
i REM 

i PR 1 NT • am n B PW»BWWg T lTTTTTTTlT g»- 1GHT ON" 

F0RA"0T02000«NEXT 

> print finramas n a mssas Ktsx tas i 

I FORA"ITOLE•SYS20325«KCXT 
i LE-LE*1iGOTO 110 
i REM INSTRUKT10NER 
PRINT-J-ITAB' JAGER’iPRINT 

i PRINT" ®5PILLET GAAR UD PAA AT SKYOE UFOERNE“ 
i PR I NT" B3G LANDE BLODT PAA PLATFORMEN. 11 
i PRINT-kMAN STARTER MEO EN LASER 00 3 CIV 
i PRINT"«JAAR MAN HAR KLARET EN LEVEL OG HAR■ 
i PRINT-B20000 ELLER PLERE POINT SAA FAAR MAN* 
i PRINT-B30BBELTLASER- 

i PRlNT'l^VIS MAN KLARER DEN BANE MED 6 UFOER" 

i PRINT-ltAA KOMMER OER 2 UFOER MEN STORRERE ■ 

i PR 1NT i PR I NT "B’O 1 NT I " 

l PRINT'B-iFO aiOOO- 

i PR I NT "H.ANOE at 000«LEVEL " 

i PR I NT i PR I NT "CONTROL I PORT 1* 

l PR INTI PR INTiPR INTlPR INT * B*RESS SPACE“ 

> GETASlIFAS"■ "THEN 35020 
l G0T045130 


10 KfcM . 

AH A 

12 REM • MASTER MIND M 

13 REM * LAVET H» ANKER ROSENSTEDT • ■ A B M 

14 REM • <C> 28/12 198 ■ HA ■ M 

15 REM •«•••••«••»«•«•»#••••««*•«•*«•••• ■ ■ V 

20 POKE 53280,9 POKE 53281,9 A " 

30 PRINT CHRfC144) 

40 PRINT"3" 

50 PRINT" MASTER MIND" 

52 A"INT <6*RND<1) > 

54 B-INT<6*RND<1)) 

56 C-INT<6»RND<1>> 

58 D-INT<6*RND<1>> 

60 PRINT”JEO HAR FUNDET 4 FARVER UD AF DISSE•" 

70 PRINT"SORT<S),HVID(H),R0D<R),OR0N<G),BLA<B)* QUL<V>."; 

80 PRINT" INDTAST DIT OAET." 

02 0-041 
05 P-P+2 

90 OET Rf : IF R*-"" THEN 90 
100 IF R*-"S" THEN 1-0 M-0 GOTO 166 
110 IF R$-"H" THEN 1-1=M-l GOTO 166 
120 IF Rf-”R" THEN 1-10 M-2 GOTO 166 
130 IF Rf-"0" THEN I-5M-3Q0T0 166 
140 IF Rf-"B" THEN 1-14 M-4:GOTO 166 
150 IF RI«T THEN 1-7 M-5 GOTO 166 
155 IF RM M P" THEN 161 

160 OOTO 90 

161 P-2 POKE 0*4041185,32 POKE 0*40+1107,32 POKE 0*4041189,32 

162 POKE 0*4041191,32 GOTO 90 

166 IF P-2 THEN E-M 

167 IF P-4 THEN F-M 

168 IF P-6 THEN 0-M 

169 IF P-8 THEN H-M 

170 POKE 0*4041183+P,81 POKE O*404!554554P, I 
180 IF P<>8 THEN 85 

105 GET Tf:IFT*-""THEN105 
186 IFTf«"P"THEN161 
190 L-0 : K-0 

195 A<l)-0 B<l)-0C<l)-0 D<l?-0ECl)-0 F<l>-0 G<l)-0 H(l)-0 

200 IF R-E THEN L-L41 ; AC1)-1 : E<1)-1 

210 IF B-F THEN L-L41:F(1)-l:B(1)-l 

220 IF C-G THEN L-L41:C<1)-l : G<1>-l 

230 IF D-H THEN L-L41 DC1)-1 ; H<1)-1 

240 IF A-F AND A<l)-0 AND F(l)-0 THEN K-K41:F(1)-1fl<l)-l 
250 IF A-G AND A<l)-0 AND 0(1)-0 THEN K-K41:Q<1>-1 A<1>-l 
260 IF A-H AND A<l)-0 AND H<l>-0 THEN K-K41:A<1)-l:H<1>-l 
270 IF B-E AND B<l>-0 AND E<l)-0 THEN K-K41:B<1>-l=E<1>-l 
280 IF B-G AND B<l)-0 AND 0(1>«0 THEN K-K+l B<l>-l : G<1> — 1 
290 IF B-H AND B<l)-0 AND H<l>-0 THEN K-K41:B<1>-l:H<1>-l 
300 IF C-E AND C<l>-0 AND E<l>-0 THEN K-K+l C<1)-1 : E<1>-l 
310 IF C-F AND C<l>-0 AND F<l>-0 THEN K-K+l C<1)-l F<1)-l 
320 IF C-H AND C<l>-0 AND H<l>-0 THEN K-K+l : C<1>—1 : H<1>—1 
330 IF D-E AND D<l)-0 AND E<l)-0 THEN K-K+l : D<1)-1 : E<1)"1 
340 IF D-F AND DCl)-0 AND F(l)-0 THEN K-K+l : DC1> — 1 F<1)-1 
350 IF D-G AND D<l>-0 AND G<l)-0 THEN K-K+l : D<1>-1 : G<1>—1 
360 IF L-4 THEN 410 
370 PRINT SPC<10) 

380 PRINT"SORTE ; "L"HVIDE : "K 

390 IF 0-18 THEN PRINT"DU HAR BRUOT 18 FORS0G,OG DER ER IKKE 
400 P-0:GOTO 82 
410 PRINT SPC(40; 

420 PRINT”DU OAETTEDE FARVERNE PA ”0" FORS0G." END 


Mastermind 



B Med dette program 16r du 
en uscedvanlig Hot Master 
Mind pd din Commodore 64. 
Ndr programmet starter, tin¬ 
der computeren 4 ud at 6 mu- 
lige farver, som du skat gcette 
ved at indtaste torbogstavet. 

MERE PLfiDS." END 


Hvis du mod torventning tryk- 
ker pd en iorkert tast, rettes 
ved tryk pd "P". Efter endt 
indtastning trykkes RETURN, 
og du tdr at vide, hvor mange 
sorte og hvide brikker du 
har.D 

Anker Rosenstedt 
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Cosmic Chaos 


■ Din vcerste yndlingsljende 
har haft held med at gen- 
nembryde den strdlebarriere, 
der skulle redde dig og dine 
fra adelceggelse og dad pd 
din idylliske planet Eldorado. 
Nu er der kun 6n udvej. Du 
md have laserkanonen frem 
fra gemmerne. Den er gan- 
ske vist rusten og gammel- 


dags, fordi den ikke har 
vceret brugt i drevis, men det 
vigtigste er, at den stadig dur. 

I Cosmic Chaos kommer du 
ud i en vild rumkamp, hvor 
du fdr hcenderne mere end 
fulde med at holde de fjendt- 
lige rumjagere fra livet.D 

Leif Kvernh usvik 
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BORDER 0: PAPER 0: INK 6: BRIGHT I- 

BEEP .2,10: BEEP .2,5 

GO SUB 1000 

LET hs=0 

GO SUB 2000 

LET a=21 : LET b = 15 

LET sc=0: LET Us=50 

LET liv=5 

PRINT AT 0,0; PAPER 2, 


INK 7;" 

" ;AT 0,0; "Sc 

i AT 0,8 ; "L4S : ” ; 14S ; AT 0, 16 i "L i u:" ; I ■ 
0,23; "HiSc ihi : PAUSE 100 

REM tm8ananati»»s«nniiiin»iiiiaB 

REN Hovedrut ine 

REH aaaaaaaaaaaaaaaaaaaaaaa 

LET y=3+INT CRND*26): FOR x=l TO 20 
ATTR Cx,y)=68 THEN GO TO 340 
PRINT AT x,y;"d" 

PRINT AT a,b 

IF IN 63486=190 AND b>0 THEN LET. b 

IF IN 63486=190 AND IN 65022=189 AN 
1 THEN LET b=b-2 
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150 IF IN 63486=189 AND b<29 THEN LET 
b =b +1 

160 IF IN 63486=189 AND IN 65022=189 AN 
D b <28 THEN LET b=b+2 
170 IF IN 61438=190 AND a> 11 THEN LET 
a=a-l 

180 IF IN 57342=190 THEN IF las THEN 
GO TO 280 

190 IF NOT las THEN GO TO 3000 
200 LET a=a + (1 AND a<21 AND IN 6143801 
90) 

210 PRINT INK 4IAT a.bi 'abc" 

220 IF ATTR Cx,y)=68 THEN GO TO 340 
230 PRINT AT x,yi” - 

240 LET y=y+CRND>.5 AND y<28)-(RNO<.5 A 
ND y>3): LET x=x-C2 AND x>]0 AND RND<.2) 
250 IF x=20 THEN LET llw-llw-1: PRINT 
PAPER 2; INK 7iAT 0,20;llu: IF lly=0 TH 
EN GO TO 4000 
260 NEXT x 
270 GO TO 100 
273: 

274 RED aaaaaaaaaaaaaaaaaaaaaaa 

275 REM PLOTxDRAU Laser 

276 REM Sjekk lor trell 

'277 REM aaaaaaaaaaaaaaaaaaaaaaa 

278: 

280 LET las = las - 1 

290 PLOT Cb*8)»12,(175-(a*8))+2: DRAW 
INK 710,78: BEEP .003,50: PLOT (b*8)+]2, 
f 175-(a*8»t2: DRAW INK 010,78 
300 IF ATTR (x, y) 070 THEN FOR S = 1 TO 
21 STEP 3: BEEP .03,s*2.5: PRINT AT x,y, 

INK «73i"d": NEXT s. PRINT AT .. 

let sc=sc+f25-x): lET las--las + l: PRINT 
PAPER 21 INK 7,AT 0,3,sciAT 0,12l:aslAT 
0,13,1” AND las <10)• OUT 57342,5. GO T 
0 100 

310 PRINT PAPER 2j INK 7lAT 0,3lsclAT 
0,12 1 laslAT 0,1311" AND las<10) 

320 OUT 57342 5 

335 REM 

336 REM Ko I 1 1 sjonsrutine 


337 REM aaaaaaaaaaaaaaaaaaaaaaa 
338: 

340 FOR s =2 TO 6 

350 PRINT AT a,bi INK si'abe" 

360 BEEP .2,-10: BEEP .005,s*5 
370 NEXT s 

380 PRINT AT a,bl" : LET llu=liv-l 
390 PRINT PAPER 2; INK 7;AT 0,201ily 
400 IF llv<=0 THEN GO TO 4000 
410 OUT 57342,5: GO TO 100 

994 : 

995 REM aaaaaaaaaaaaaBaaaaaaaao 

996 REM Gralikk ABC D 

997 REM aaaaaaaaaaaaaaaaaaaaaaa 
998: 

999 STOP 

1000 FOR a=USR "a” TO USR ”«"*3] 

1010 READ b: POKE a,b 
1020 NEXT a 
1030 RETURN 

1040 DATA 0,0,0,3,7,15,27,59 
1050 DATA 24,24,60,255,255,255,231,195 
1060 DATA 0,0,0,192,224,240,248,220 
1070 DATA 153,219,255,126,60,24,24,24 

1994 : 

1995 REM aaaaaaaaaaaaaaaaaaaaaaa 

1996 REM Innstruksjoner 

1997 REM aaaaaaaaaaaaaaaaaaaaaaa 

1998 •' 

2000 BORDER 0: PAPER 0: CLS 

2010 PRINT AT 1,31 " 1.UENSTR 

E” JTAB 3i"2.H0YRE” 1TAB 3i"0 

.OPP” JTAB 3 J“P . 

. SKYT" 1 TAB 3 ; "S .EKSTRA FART 

2020 PRINT AT 7,3i'D!N SCORE AUHENGER AU 
HUOR HOYT ROMSKJPET ER NAAR DU 

TREFFER UET.(T0PPSC0RE=24) DU SI 

ARTER MED 50 LASERE OG FAAR 1 NT 

FOR HUER TREFF.SPlLl-El ER ODER 

HU I S 5 ROMSKIP KLARER AA KOMME 

HELT NED ELLER KDLI. IDERER MED I) 

EG.HO.IS DU GAAR TOM s OR LAS- RE -■> 


AR DU 50 NTE OG MI S' ER E T i-io. 

2030 PRINT INK 7,A” 21.3, FuASH 1. ’RY 

KK J FOR AA SI ARTE SPIllEI 

2040 IF INKEY$ = " J" OR INKEY*="J” 1 HEN B 

ORDER 5: CLS : RETURN 

2050 GO TO 2040 

2994: 

2995 REM aaaaaaaaaaaaaaaaaaaaaaa 

2996 REM Nye Lasere ? 

2897 REM aaaaaaaaaaaaaaaaaaaaaaa 
2898: 

3000 IF las =0 AND liu>0 THEN LE’ as = la 
s»50: LET liv-llu-l: PRINT PAPER 2i INK 
7;AT 0,121 I as;AT 0,201llu 
3010 IF llu=0 THEN GO TO 4000 
3020 GO TO 210 

3994 : 

3995 REM aaaaaaaaaaaaaaaaaaaaaaa 

3996 REM Game Oyer/Nytt Spill * 

3997 REM aaaaaaaaaaaaaaaaaaaaaaa 
3998.: 

4000 PRINT AT 10,11; FLASH 1; GAME ODER' 
1010 PRINT AT 15>55" T RTKK J FOR NTT’ 

LL" 

4020 IF se>hs THEN LET hs-sc 

4030 FOR J-l TO 5 

4040 FOR t*l TO 5 

4050 BEEP .03,-t*5: BEEP .03,-s 

4060 BEEP .03,-»*10 

4070 NEXT t 

4080 NEXT • 

4030 IF INKEYS="J" OR INKETS="J" ’HEN C 
LS : GO TO 50 
4100 GO TO 4090 

9992 REM Hyls programme! ikke 

9993 REM yirker som det skal 

9994 REM proeu da aa bylle ut 

9995 REM IN ta I lene I I inje 

9996 REM 130-180. 

9997 REM Bytt 190 med 254. 

9998 REM Bytt 1B9 med 253. 

9999 SAUE "RomdueIl” LINE 10 


babyrintkrig 


■ Du skal prave at komme 
igennem en labyrint, t 0 r din 
modstander - computeren - 
samtidig med at du skal pas¬ 
se pd ikke at st 0 de ind i vceg- 
gene. Du skal ogsd passe pd, 
at modstanderen ikke spiser 
dig. Husk at du ikke kan gd til- 
bage! 

Nederst pd skcermen kan du 
hele tiden se, hvem der terer, 
og til slut hvem der har vun- 
det. Hvis du vil bmge joysticks 
eller andet at sty re med, kan 
du cendre i linie 23 og 24. Her 
atlCEses retningen. 

Spillet er kort men godt, og 
kan k 0 ies med de 2 K RAM, 
som ligger i en standard 
Lambda. □ 

Poul M0ller 







1 PRINT BT o. 


4. FOR flsl TO £0 

5 PRINT RT R,0," 

!■■■■■■■ " 

6 NEXT R _ 

7 PRINT " 


^ToRBU TO 29 STEP 2 
9 FOR B=0 TO I 
10 PRINT RT RND+19+1,Ri" 

1.1 NEXT B 

12 NEXT R 

13 R=>INT <RND*19) +2 
14. 6 = 30 

15 C = INT (RND»8S) 

16 D=0 

17 E = 1 

18 E=E*(-1 OR »>1 RND R <201 

19 PRINT RT R,B; " 

20 IF NOT PEER (1SS09 +R *33 +B> 
THEN B=B-2 

21 R=R+E 

22 PRINT RT R , B ) ''X" , RT C , D; " " 

23 C=C + ( INKEY* = "R” RNC- C-lSl) - < 
INKEY*="4" RND C>0) 

24 D =D + < INKEY $ = " F '* ) 

25 F=PEEK (16510+C. *33 +E» 

26 PRINT RT C , D; "El" R T 21,11, 

anci e*D J 3o i _aaBBEHai 

RND 6+D>30, '■■■■FThT 21,1 
l; 

27 GOTO (F < > 0 OR R=C RND B=D O 
R B =0) *14+ (D = 3 0) *10 + 13 

28 PRINT .umi-uiaj 

29 D =D-1 

30 SOUND D,999 

31 GOTO ID >5) *29 

32 PRINT Sl^kSJULlIHB 

33 SOUND 30,9999 

34 RUN 

35 SRUE “LRBYRINfl” 

36 RUN 
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Sound 

Generator 


■ De, der har pravetQL's manualen, at BEEP-komman- 
komplicerede BEEP-kom- doen bar anvendes mere ved 

mandoved.hv rsvcert deter * eksperimentering end ved at 
at opnd najagt i den bestem- udregne de najagtige vcerdi- 
te 1yd, man an ,-;er til i.eks. et er tor de 8 tal. 
spil. For at gore denne eksperi- 

Godt nok lortceller Sinclair i mentering lettere, har vi lavet 
manualen, hvilke af de maxi- programmet "QL Sound Ge- 
mum 8 parametre, der har nerator". Det giver mulighed 
hvilke indvirkninger pd den (or at eksperimentere sig frem 
endelige 1yd, Men dermed er til smarte lyde, lagre dem og 

ikke sagt, at man uden vide- (oretage diverse andre nytti- 
re kan scette sig ned og gan- ge ting, Med lidt llittig brug at 

ske enkelt udregne paramet- programmet skulle det vcere 

rene tor den anskede 1yd, Det- muligt at lokke mange spcen- 

te er nemlig en noget kompli- dende lyde ud at den ind- 
ceret attcere, da mange at byggede hajtaler 
parametrenes vcerdier. t.eks. Indtast programmet og start 
indbyrdes pdvirker hinan- med RUN, Pd skcermen ud- 


gelse at lydens lcengde. Sam- at alle de gemte lyde. mens 
tidigspillerQLdennuvceren- F5 derimod sletter dem alle 
de 1yd i hajttaleren. Du kan sammen. EndelignulstillerFl 
bruge cursor-venstre- og cur- de syv vcerdier lor den nuvce- 
sor-hajre-tasterne til at llytte et rende 1yd. 
markarfelt rundt mellem de 7 Bemcerk, at BEEP-komman- 
parametre. Ndr feltet stdr ved doen i programmet bruges 
en vcerdi. du vil cendre, bru- med en lcengde pd nul. ndr 
ger du cursor-op- og cursor- lyden atspilles. Har du i sinde 
ned-tasterne til at op- og ned- at bruge de lyde. der laves, 
tcelle tallet. Holdes ALT samti- med en anden lcengde, md 
dig nede vil op- og ned-tcel- du vcere torberedt pd, at det 
lingen kare hurtigere Dette er mdske kommer til at lyde lidt 
nyttigt. hvis store vcerdier skal anderledes. Det skyldes. at QL 
cendres. laktisk atspiller en 1yd med 

Hver gang. du har opndet en lcengden O en smule ander- 
tiltredsstillende 1yd. kan du ledes end samme lyd med en 
gemme den med et tryk pd hvilkensomhelst anden 
F2. Senere kan du eventuelt lcengde. Sddan er det ba- 


den, skrives nu alle BEEP-komman- hente den trem igen med et re. 

Sinclair ncevner da ogsd i doens parametre med undta- tryk pd F3. F4 giver enudskrift 


100 REMark SOUND GENERATOR 

110 REMark 

120 REMark (C) 1983 Esben Krag Hansen 
130 REMark 

140 DIM value(7): DIM sounds(100,7): cursound=0: pos=l: oldpos-1: DIM limit (7,2 


130 RESTORE 2000 

160 FOR 1-1 TO 7: READ 11m1t(1,1),11m1t(i,2) 

170 MODE 8 

500 REPeat malnloop 

310 PAPER 0! INK 71 CLS1 CLSHO 

320 CSIZE 2,1 „ 

330 PRINT TO 101'Sound Generator" 

340 CSIZE 0,0 

350 AT 3,61 PRINT "Pltch'ITO 14 1 ■ P1 tch_2“ TO 221 " Grad_x • \ \\T0 61 ■ Gr ad_y " 1 TO 14i"W_ ( 
rap”|T0 221"Fuzzy"\\\T0 61'Random” 

560 AT 4,6: PRINT value<l>T0 141 value(2)TO 221va1ue(3)\\\T0 61value(4)T0 14ivalu^ 
e15)TO 22lvalue(6)\\\T0 6lvalue(7) 

370 AT 13,3 / 

380 PRINT "FI Res»t lydv#rdler til O'VTO 51"F2 Gem nuv*rende lyd"\T0 51“F3 Hent 
en gemt lyd'XTO 3|"F4 'Jdskrlu alle gemte lyde"\T0 51"F5 Slet alle gemte lyde" ^ 
1000 REPeat loop _ . , / , / 


Esben Krag Hansen 








■SIBSISSSS! 


mma 
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1010 IF posOoldpos THEN 

1020 AT 4+(o1dpos-1) DIV 3*3,6*(oldpos-1) MOD 3*3 

1030 PRINT value(oldpos)TO 6+(oldpos-l) MOD 3*8*3 

1040 AT 4*(pos-1) DIV 3*3,6+<pos-1) MOD 3*8 

1050 PAPER 2: PRINT value(pos) TO 6+(pos-l) MOD 3*3+3 

1060 PAPER 0 

1070 ELSE 

1080 BEEP 

1090 PAPER 2 

1100 AT 4Mpos-l> DIV 3*3,6+ (pos-1) MOD 3*8 
1110 PRINT value(pos)TO 6+(pos-l) MOD 3*8+8 
1120 PAPER 0 
1130 END IF 
1140 oldpos-pos 
1150 REPeat getkey 

1160 BEEP 0,value(l),value<2),value(3),value(4),value(5),value(6),value(7) 

1170 key-KEYROW(O): key-CODE(INKEY*(-1)) 

1180 SELect ON key 

1190 ON key-192 

1200 pos«pos-1+7*(pos-1) 

1210 NEXT loop 

1220 ON key-200 

1230 pos-pos+1-7*(pos=7) 

1240 NEXT loop 

1250 ON key-208 

1260 va1ue(pos)-value(pos)♦1 

1270 IF value(pos)>1imit(pos,2) THEN value(pos)-1imit(pos,1) 

1280 NEXT loop 

1290 ON key-216 

1300 value(pos)-value(pos)-1 

1310 IF value(pos)<1imit(pos,1) THEN va1ue(pos)-1imit(pos,2) 

1320 NEXT loop 
1330 ON key-209 

1340 value(pos)-value(pos)+100 

1350 IF value(pos) >1 init(pos,2) THEN value(pos)-1imit(pos,1) 

1360 NEXT loop 
1370 ON key-217 

1380 value(pos)-value(pos)-100 

1390 IF value(pos)<1imit(pos,1) THEN value(pos)-1imit(pos,2) 

1400 NEXT loop 
1410 ON key-232 
1420 BEEP 

1430 DIM va1ue(7): NEXT mainloop 
1440 ON key-236 
1450 BEEP 

1460 IF cursound-100 THEN AT 12,0: CLS 2: AT 16,8 : PRINT "100 lyde er lagret... 

key-KEYROW(0): PAUSE: NEXT mainloop 
1470 cursound-cursound♦1 

1480 FOR l-l TO 7: sounds(cursound,i)-va1ue(i) 

1490 AT 12,0: CLS 2: AT 16,8 

1500 PRINT "Lyden har nummer "{cursound 

1510 number-KEYROW(O): PAUSE: NEXT mainloop 

1520 ON key-240 

1530 BEEP 

1540 IF cursound-0 THEN AT 12,0: CLS 2: AT 16,8: PRINT "Ingen lyde er gemt": num 
ber-KEYROW(0): PAUSE: NEXT mainloop 
1550 REPeat numbinput 
1560 AT 12,0: CLS 2 

1570 AT 16,5: INPUT "Indtast nr. pa 1 yd:"Jnumber 

1580 IF number>0 AND number<-cursound THEN EXIT numbinput 

1590 END REPeat numbinput 

1600 FOR i-1 TO 7: va1ue(i)-sounds(number,i) 

1610 NEXT mainloop 
1620 ON key-244 
1630 BEEP 

1640 AT 12,0: CLS 2 

1650 IF cursound-0 THEN AT 16,8: PRINT "Ingen lyde er gemt": number-KEYROW(0): P 
AUSE: NEXT mainloop 

1660 AT 16,0: INPUT "Skal lyden atspilles samtidig med"!"udskriften af vffrdier ( 
J/N) ? "'svar* 

1670 CLS: PRINT "Tryk p& en tast, hver gang en ny 1yd 0nskes.'*\\ 

1680 FOR i-1 TO cursound 

1690 PRINT "Nr."; i J " : " { 

1700 FOR n«l TO 7: PRINT sounds(i,n)I: IF n<7 THEN PRINT 

1710 IF svar*--"j" THEN BEEP 0,sounds(i,1),sounds(i,2)I sounds(i,3)5 sounds(i,4)|s 
ounds(i,5)Jsounds(i,6){sounds(i,7) 

1720 pause: PRINT \\ 

1730 END FOR i 

1740 NEXT mainloop 

1750 ON key-248 

1760 BEEP: AT 12,o: CLS 2 

1770 AT 16,3: INPUT "Klar til at slette alle lyde"\\T0 4J"- er du sikker (J/N) ? 
"!svar* 

1780 IF svar*=="n" THEN NEXT mainloop 
1790 cursound=0: DIM sounds(100,7) 

1800 AT 12,0: CLS 2 

1810 AT 16,8: PRINT "Alle lyde er slettet" 

1820 number-KEYROW(0): PAUSE: NEXT mainloop 

1830 END SELect 

1840 END REPeat getkey 

1850 END REPeat loop 

1860 END REPeat mainloop 

2000 DATA 0,255,0,255,-32768,15,-8,7,0,15,0,15,0,15 
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■ I dette Lambda program 
skal du starte sammen med 
22 andre vogr I forste om- 
gang skal du overhale de 
ovrige deltage:e (det sker i 
startfeltet). og derelter styre 
gennem svingene. Men pas 
pd, for tilskuerne smider sten 
pd banen! Du skal ogsd passe 
pd at du ikke lober tor for ben- 
zin. 

Allcesning af tastaturet sker i 
linie 11 og 24. og dem kan du 
jo cendre hvis du vil bruge 
joystick eller andre taster. 
Programmet korer nemt i en 
»lille« Lambda. Det vil sige 
med kun 2 K RAM.D 

Poul Mallei 


Amcircle 


■ Som regel skal der ikke 
meget til for at lave de flotte- 
ste monstre pd en grafisk 
skcerm. Prov blot dette lille 
program, der tegner op til 30 
forskellige cirkelmonstre i vil- 
kdrlige farver. 

Prov ogsd at bruge nogen an¬ 
dre funktioner end lige COS 
og SIN. Denne idd med at 
bruge matematiske funktio¬ 
ner til monstertegninger kan 
med fordel bruges til at pep- 
pe ens egne programmer lidt 
op! □ 

Kaj Laursen 



1 REM CIRKEL M0NSTRE 

2 REM Copyright Kaj L-aursen 
IS s=INKRND*30+l> 

20 CLS•BORDER 0•INK 0,9 
30 x=IHT <RND*26> = INK l,x 
40 a~INT <RND*26)'INK 2,a 

59 z=INT <RN0*26>=IHK 3,2 

60 FOR ri=0 TO 360 STEP s 



40 a ~ I NT <RND#26)'INK 2, a ^ 

50 2= I NT < RN0T26 > = I NK 3,2 . 

60 FOR ri=0 TO 360 STEP s 
70 MOVE 320,200 

80 DRAW 320+190*COS<n>,200+190*3IN<n>,1 
90 DRAW 320+190*COS<n+2.5*s>,200+190*8IN 

100 DRAW 320,200,3 /- 

110 IF INKEY*<>"" THEN 10 
120 NEXT //l 

130 IF INKEV$< >"" THEN 10 / Ly 

140 GOTO 130 ' / 



Cn+2.5*s 
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INDEX print 


COMMO 

DOBl 

64 



■ Indexprint til Commodore 
64 giver dig mulighed (or at 
td orden i dine bdnd. Selve fi- 
lerne med tceller og titel kan 
ogsd lcegges pd disk. Blot 
skal linie 1 rettes til 8 i stedet 
(or 1. Du kan bdde lave num- 
merstyret og alfabetisk ud- 
skrift. Ellers er programmet 
selvforklarende gennem sin 
hovedmenu. □ 

Martin Petersen 



1 TD= 1 : G0T02 '■ 1 = TAPE , 3=DISK 

2 REM**SKREVET AF MARTIN PETERSEN 1935 ***** ***** ** ***** * **# ******* *** * * 
5 D I MTA't 100 ) : D IMNA3K 100 ) 

10 P0KE5323 1 , 254:POKE53230, 246:PR INT" LA " 

20 PR I NT " SHB11 • NUMMERERET UDSKRIFT" 

30 PR I NT "M2 . ALFABETISK. UDSKRIFT" 

40 PRINT"®. HENTE DATA FRA BAAND/DISK" 

50 PRINT"SH . INDTASTNING AF DATA" 

55 PRINT"®. SLUT" 

60 PR I NT" SBHHIv'AELG TAL FOR ONSKET FUNKTION!" 

70 GETA:IFA<10RA>5THEN70 
30 IFA=1THENG0SUB200 
30 I FA =2THENG0SUB300 
100 IFA=3THENG0SUB400 
110 IFA=4THENG0SUB500 
120 IFA = 5THENP0KE53230,254:P0KE53231 ,246:PR INT"JM":CLR:STOP:END 
130 GOTO 10 

190 REM**#**NUMMERERET UDSKRIFT********* 

200 0PEN4,4:PR INT#4,CHR$< 14)"BAND";BAJ " SIDE";SI;CHR*< 15):PRINT#4 
210 F0RB= 1T0AN: PR INT#4 ,B;CHR*< 16 ) "04 i " ;CHR*< 16) "06" ; TA< B )CHR*'! 16 ) " 12 |" ; 
230 PRINT#4,CHR*( 16)"14";NA*<B):NEXT:CL0SE4:RETURN 
290 REM*****ALFABETISK UDSKRIFT********* 

300 0PEN4,4:PRINTW4,CHR*< 14)"BAND";BA; " S IDE " ? S I ; CHR$< 15):PR INT#4:G=0 
310 FORB =65T090 ! FORC = 1 TO AN: IFASC't NA*< C) )< >BTHEN340 

320 G=G+1 :PRINT#4,G;CHR3* 16 ) " 04 ; CHR*< 1 6 ) "06 " ; TA< C ) ; CHR$< IS)"12|"; 

330 PR I NTH 4 ,CHR$< 16 ) " 14 " ; NA*< C ) 

340 NEXT:NEXT:CL0SE4:RETURN 

S'SO REM*****DATA FRA BAAND/D ISK****.**.*** 

400 INPUT"BAANDNUMMER,SIDE";BA,SI:E*=STR*< BA)+STR3X SI) 

410 0PEN1,TD,0,E$:AN=0 

420 AN=AN+ 1 s INPUT# 1 ,TA< AN) : INPUT# 1 ,NA*< AN) : IFNA$< ANX > "SLUT" THEN420 
430 AN=AN-1:CLOSE 1:RETURN 

490 REM***** INDTASTNING AF DATA******.*** 

500 PRINT"J":PR INT"99® ,SLUT=STOP":AN=0 

5 10 AN=AN+ 1 : INPUT"BAANDTEALLER ,TITEL " ; TA< AN) ,NA3K AN) : IFTA( ANX >0THEN5 1G 
520 INPUT"BAAND NR., SIDE‘;BA,SI:E$=STR$< BA)+STR$<SI) 

530 OPEN1,TD,1,E$:FORB=1T0AN:PR INT#1,TA< B )'• PR I NT#1,NA*<B):NEXT 
540 AN=AN-1:CLOSE 1:RETURN 


Programmer: 

Samtlige allrykte Uslnlnger 
er alpravede ter otfentlig- 
gorelse. Forlagel betaler 
skatlelrit op til 1000 kroner 
lor godkendte lceserpro- 
grammer. Forlagel har rel 111 
al attrykke godkendte pro¬ 
grammer i bladel og ollenl- 
llggare dem p<S andre 
lagermedla. 
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Hole in one 


\-MewJ2icun__ 


% 


mby <199),tby(PI/2>, 
mby (199),tby(PI/2> 


placid 12,20) ,BTR4(va) 
place!124,10) 


tby(3«PI/6),dby(3,I>, 


tby(PI/fc) ,dby(3,1) , 


20 RANDOMI2E 
30 OPENHO.O 
30 9TAB(I7)|"B0LF” 

80 '’TAB (17 > | — “ 

MO 7,7"Velkommen til datamat -goH . " 

120 LINPUT("Vejledning7")a» 

130 a*-LEFT*(a«,1» 

140 IF *•< >“y” AND •*<>“V AND a*<>"j" AND a*< >“J" AND '» 

**<>"- THEN GOTO196 / 

130 ?i 7"Spi 11 at kan apilles af 1 til 4 peraoner" / ,11. ^ 

152 7-og kan forlpbe ovar 1 til B ongangi. I" / 

154 7-hv«r omgang lorapgir an apiller at aln" / 

136 7-boldan l hul 1 aw «n alag aom auligt. Et“ t / / 

158 ’’"tlag angivaa vad ratningan mod hullet <“ 11/ /B*/ 

160 ?"i grader), alagatyrkan aamt vinklan mad" 11/ 

162 7** jot dan (i gradar > . Slagatyrken akal have" • / / 'V'//// 

164 7"an vrrdi , aom ikke ovaratigar 25 plua" / / 

166 7“vink 1 an mad Jordan. (Dan makaimala alag-'* / MSfo////'/' 

160 7”atyrke for an jordtrillar blivar anladaa" I / 

176 7“siag mod hul vinakaliggpraa af vindan'* / / / 

178 7" (vindatyrkar fra 1 til 12) og to trrar," / /■WyyQ / / / 

180 '•"aom dat ar umuligt at akyda ovar. Efter" I / / 

182 7".t alag ar angivat, vil boldan bagynda" \ Vjk. . / / / / 

184 7“»t bavrga aig ovar akrrman. Nadalagapo-’* \ / / 

186 7”aitionen markaraa mad an 111 la at rag," / / 

188 7"hvorafter boldan vi 1 trill* yderligere" 'v ' / 

190 7”at atykka. God iornpjalaa 1 "i7 X. ^■|li| Ja / 

196 CLEARi te« .13 ^Ul 

198 ON ERROR GOTO 8000 

200 INPUT("Antal aplllere i ")aa \ 

202 aa-INT(aa) ( 

203 IF aa< I OR aa>4 THEN 7i7“aai Antal mallarn 1 og 4>“|GOT0200 

210 INPUT("Antal omgange i ">ao / f| 

213 ao-INT(ao) [ M 

220 IF ao<I OR ao>8 THEN 7|7"a*a Antal mallarn 1 og 8'”lGOT0210 J 

230 DIM ar(aa.ao) \ C 

240 FOR p-l TO ao \ V 

230 FOR q-1 TO aa 

400 OPENbO,0,-200“ \ 

410 CLOSE*1iOPEN#1,11,"200" 

420 IF aaOl OR aoOl THEN ?i?“ “ | LEFT* (S TR* <q > ,2>|". 8PILLER - "|LEFT* (STR* < 

p>,2)|". OMGANG” 

423 ar <q,p>-0 

430 plot ranga<320,200> 

440 plot mby(319>,tby(PI/2), mby(199),tby(PI/2), 1 

mby(3!9),tby(PI/2), mby(199),tby(PI/2> V 

600 va-l»INT(12«RND> IV 

700 vr-2aPI*RND-PI 

BOO al-vaaCOB(vr)ia2-va*8IN(vr) ^ 

900 plot place! 8,20),“Vindatyrke i“, piace(112,20),BTR»(va> \ 

lOOO plot place( 8,10).“Vlndretning i", place!124,10) 

1100 IF vr<0 GOTO 1400 

1200 plot trn(vr) ,mby(IO), tby(3«PI/6),dby(3,1>, 

tby(PI/3> ,dby(3,1) 

1300 GOTO 1300 

1400 plot trn(PI»»r),dby(10,1), tby(PI/6) ,dby(3,l>, 

tby(-PI/3),dby(3,I) 

1300 a-PURND 

1600 X-l60«140«C08(a) 

1630 Y-l70-l40«SIN(a> 

1632 v9-INT(PIiRND) 

1633 m -IB*l02aRND 

1634 »8-l60*waC08(v9) 

1636 y8-l70-weBIN(v9> 

1637 IF BGN(m-160>"HON(m8-160)<0 THEN m8-320-mB 

1638 v9-lNT(PI«RND> 

1639 m -23.92.RND 

1640 *9-160**aC08(v9> 

1642 y9-170-ma8IN(v9) 

1643 IF SON <a-160)»SGN(«9-160)<0 THEN -9-320--9 

1644 IF (»9-*8) ~2* (y9-y8) *'2<623 THEN GOTO 1638 

1645 plot pi ace(«8,y8-10).trn(O), arc(20*PI,2»PI), 

pi ace(*0,yB>.fill 

1646 plot piace(*9,y9-l3),trnlO), arc(30»PI,2«PI), 

placa(N9,y9>.fill 

1630 plot plac«<160,162>,trnK», .rc116*PI,2*PI1.Hot 1160.170,1>. 

dot( m, y, 1 ) 

1670 IF a>PI/2 THEN plot pi ace(*-12,y),“8",placa <* ,y)i 

GOTO 1700 

1690 plot place(M«4,y> ,“B",placed*,y) 

1700 PUT*0,31 

1720 INPUT(-Ratning mod hul 1 “)a 
1730 INPUT(“Blagatyrka ■ “)v 

1800 IF v<0 OR v>l13 THEN 7i7“«aa Blagatyrkan mallarn 0 og 113•“iGOTOI730 
1900 INPUT(-vlnkel mad lord i ")b 

1920 IF b<0 OR b>90 THEN 7i7-#aa Vinklan mallarn 0 og 90 gradar 1 i GOTO 1900 

1930 IF v>23*b THEN 7,7"a#a Blagatyrkan mn hpjat vrra 23“i7‘ atprra and vlnkl 

an mad jordan•"IGOTOI730 

1930 ar(q.p)-ar(q,p)*1 

1973 a-aaPI/lBOib-b*PI/IBO 

2000 IF b<-0 GOTO 3100 

2030 »-pen(0)ty-pen(I) 

2100 vH-vaC0B(b>aC06(a> 

2200 vy-v*COS(b>«SIN(a) 

2230 t-v«SIN(b>/3 
2300 FOR 1*1 TO t/ta 

2310 IF (a8-pen (0) > ~2*(y8-pen (I) ) ''2<"100 THEN *7-»8iy7-y8iGOT02340 

2320 IF (»<9-pen(0))''2*(y9-pen(l)>''2<-223 THEN a7-a9iy7«y9iG0T02340 

2330 OOT02400 

2340 IF pan (2) "PI /2 OR pan(2)— PI/2 THEN v9-pen (2) *PI i GOT02360 

2330 v9-2»ATN((pan(I)-y7)/ (pan(0) -»7) ) 

-pan(2)-PI 

2360 v"SQR (vx''2*vy*'2) 

2380 vk-v»C0S(v 9)ivy-vaBIN(v9) 

2400 va-va*al*teivy-vy*a2ate 

2430 plot «va<pan(0)*v*#ta, pan(1)*vy»ta) 

2300 NEXT I 

2900 v-BOR(v«''2*vy^2) 

2940 IF va-0 AND vy>-0 THEN a- PI/2iGOTO 3070 

2970 IF va-0 AND vy<0 THEN a—PI/2iGOTO 3070 

3000 A-ATN(VYZVX) 

3030 IF VX<0 THEN A-A*PI 

3070 plot tby(PI/2>,dby(3.2,1), tby(PI) ,dby(3.2,l>, 

tby(PI/2) 

3100 plot trn(a) 

3300 plot mby(v«te> 

3310 IF (xB-pan(O) )“'2* (yB-pan ( 1 ) )*'2<"100 THEN x 7-xBi y7-y0i GOT0334O 

3320 IF (>9-pan (O) ) ~2* !y9-pan (1 > ) '*2<"223 THEN *7«x9i y7-y9i G0T03340 

3330 G0T034OO 

3340 IF pan (2) "PI /2 OR pan(2)—PI/2 THEN plot tby (PI > i G0T03400 

3330 plot tby(2»ATN((pan(1)-y7>/ (pan(0)-*7)) 

-2*pen(2)-PI) 

3400 IF (pan(0)-160)-2* (pan(1>-I70)”2<"3 GOTO 3800 

3300 v»v—IS»te 

3600 IF v>0 THEN GOTO 3300 

3630 IF ar(q,p>«9 THEN ar(q,p>-lOiGOTO 3800 

3700 GOTO 1700 
3800 PUT*0,31 

3830 7-HUL I“jLEFT*(STR*(ar(q,p)),LEN(STR»(ar(q,p)>)-D1FORSoG.“ 





% 




THEN -8-320--8 


THEN -9-320--9 
THEN GOTO 1638 
arc(20aPI,2aPI>, 

arc( 30 »PI,2»PI>, 


I udllslningenbruges danske 
specialkarakterer. De svarer 
til lalgende taster: 


arc(16aPI,2»PI).dot(160,170,1), 
plot placa(M-I 2 ,y)."B",place<«,y) i 


allam 0 og 113•"iGOTOI730 



pan( 1 )*vy»ta) 


a- PI/2iGOTO 3070 
a—PI/2.GOTO 3070 


tby(PI) ,dby(3.2,1>, 


THEN K7-«Biy7-y8iGOT03340 
THEN k7««9i y 7"y9iG0T03340 


THEN plot tby(PI)1GOT0340O 
(pan (0) -»«7) ) 


(pen(1)-170)”2<"3 GOTO 3000 


ar(q,p)■10:GOTO 3800 


3060 7““ 

3863 IF ao-1 AND aa-l GOT075O0 

3073 '’I INPUT ("Tryk NEML INE” ) a* 

3900 NEXT q 

4000 NEXT p 

4030 0PEN*0,0 

4075 7 »? 

4100 a*«““ 

4200 FOR I -I TO a* 

4300 *«m*#tr- 

4400 NEXT I 
4300 a«-a«l>“- 
4900 '’TAB (7) | ""| 

3000 FOR 1-1 TO aa 
3100 7" SR"|i41A| - “| 

3200 NEXT 1 
3300 7|7a« 

5300 FOR 1-1 TO ao 
3600 *>"0HG"| 1«1A| ““1 

5700 FOR J-l TO aa 
3800 7ar(j,l)E4A|--| 

3900 NEXT j 
6000 7i "’a* 

6100 NEXT 1 

6200 7"IALT 

6300 FOR »-l TO aa 

6400 a-O 

6300 FOR J-l TO ao 

6600 a-a*ar(l,J) 

6700 NEXT j 
6800 7a«4A|--| 

6900 NEXT 1 
7000 7 

7100 FOR i-1 TO 7a(aa*l)-l 


7iLINPUT(”Igen7")a* 
a*-LEFT*(a*,l) 

IF a«-“y- OR a»--Y" OR a*-“j” OR 

a«-“- THEN PUT*0,31iGOTO196 
1 7i7i7“Tak for danna gang." 

END 

, 7i?*••• Inddata akal angivaa aom at tail 
RESUME 


■ Spillet gdr ud pd. at man 
skal indtaste tre ting for at sky- 
de til bolden. Forst bliver du 
spurgt om. hvilken retning du 
vil skyde bolden. Derncest 
skal du opgive, hvilken slag- 
kralt du vil ramme bolden 
med. Til sidst skal du skrive, 
hvor mange grader fra jorden 
du vil skyde til bolden. 

For at gore det hele svcerere, 
er der to trceer man ikke md 
ramme. og vinden blceser 
konstant bolden lidt vcek fra 
det sted, hvor man vil have 
den. 

En betingelse er dog, at man 
holder bolden ihdenfor ba- 
nen. Gar man ikke det, ser 
man nceppe sin bold igen. 
Man kan vcere op til fire spille- 
re og spille flere omgange. Til- 
sidst bliver der tegnet en 
pointtavle. Retningen man 
skal skyde bolden i er i grader 
ogsersddanud: 



□ 

Steen Palm 
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Hold styr pa time 

■ Har du altid haft mistanke maskinen nemlig holde styr I 

om. at din lokale kobmand pa bankkontoen Du kanog- ■ W W 

svindler lidt med de penge, sd indtaste antallet at ar- 11^1 I I 

Hn fAr fnr Hit hnriinh Hnr Hu beidstimer. ltd det belob du m m m m m 


maskinen nemlig holde styr 
pd bankkontoen. Du kan og- 
sd indtaste antallet at ar- 



du fdr tor dit budjob. Har du bejdstimer. fd det belob du 
nogensinde sat dig ned og har tjent og eventuelt lagt 
regnet timelonnen ud, som oveni totalen. 


du fdr for at flytte fedtede 
papkasser og for at kcempe 
din 'Tongjohn" gennem regn 
og blcest? 

Du kunne f.eks. lade din 
Commodore 64 gore arbej- 
det. Med dette program kan 


I linie 1070 skrives timelon- 
nen. I programmet stdr 20, 
men det skal cendres, alt efter 
hvilket belob du fdr. I ovrigt er 
programmet selvforklaren- 
de.D 

Bj 0 rn Bay 


1 REM ********************************* 

2 REM * CO BJORN BAY 1934 * 

3 rem #m*m**mmmwm*M#M****M*** 

7 REM 

8 REM OVERS 1Gr 

9 REM 

10 X=53280 

20 P0KEX+1,9'P0KEX..9 
30 PRINTCHPK 147) 

40 PRINT";! - 

50 PRINT" I RFONSKflBSPPriGRHM CO BJORN BAY 

60 PRINT" -- 

70 PRTNTTABC10)"KWWHSFIP TOTAL" 

80 PRINTTABC10V'«!F3S INTAE0T / UDGIFT" 

85 PRINT TABC 10)"fi!F5B UBREGNING RF TIMEL0N" 

90 PRINTTAB C10 >“M8F?B LOAD BATA" 

100 PRINTTABC10)"MSF8S SAVE DATA" 

110 GETAJ 


130 IFAJ="B"THEN200'REM PI 

140 IFA*="5"THEN400 REM F3 

160 IFA*='TI"THEN1000 : REM F5 
170 IFAJ="»I"THEN60O'REM F7 

175 IFHl-"■"THEN800•REM F8 

177 G0T0110 
130 REM 

185 REM TOTAL 
190 REM 

200 PRINTCHRIC147) 

210 PRINT" SI0TAL" 

220 PRINT"HBWiTsTStBU HAR NU :T'B"B<R. PHA BIN K0NT0" 
230 PRINTTABa9)"WSW««fMTRVK SEN TAST" 

240 GETBJ 

250 IFBJ=""THEN240 
260 GOTO 10 
270 REM 

280 REM INDTAEGT/UDGIF1 

290 REM 

400 PRINTCHRSC147) 

410 PRINT" 3INBTAEGT / UDGIFT" 

420 PR I NT TAB Cl 2 >" HIHBMB3F1 B INTAEGT " 

430 PR I NTT ABC 12VS3F3S UDGIFT" 

440 GETCJ 


450 IFC$=" " THEN440 --- -1 7 ! Wl T! 

460 IFC$="THEN480 ■TH K 

470 I FC$=" THEN540 I fl 

430 C=0 ' INPUT " nWWWiTill NDT AST I NTAEGT "; C \ljk 

490 B=B+C \v/ k/ 

500 FOR>:=1TO500 ; NEXT OQTO200 \fij_ 

540 B=0' INPUT"HHSWKJiTSHNPTAST UDGIFT" ,i B *■ 

550 B=B-B 

560 FORX=1TO500•NEXT'GOTO200 

530 REM ■ —l 

535 REM LOAD DATA 

590 REM COMMO ■ 

60O OPEN!, 1,0, "BATA FIL" DORE Ed 

610 I NPUT # 1, B 64 m 

620 CLOSE1'GOTO10 W 

7O0 PEM ^ LJ 

730 REM SAVE DATA . 

790 REM l- - J 

800 0PEN1,1.1,"DATA FIL" 

810 PRI NT#1, B i 

820 CLOSE 1 ; GOTO 10 * ■■ - 

930 REM 

985 PEM TIMEL0N 
990 REM 

1000 F'RINTCHRfC 147) 

1010 F'R I NT " (1 3JBREGNING AF 11 MELON" 

1020 PRINT"WdMillNBTAST NU BET ANTAL TIMER OG MINUTER" 
1030 PRINT"M.U'U HAR VAERET PAA HRBEJBE. " 

1040 r=0: M-0 : F =0 : G=0 : E=0 I NPUT " .HBKHN! AL TIMER " ; T 
1050 I NPUT " SIsUNT AL MINUTER" ;M 
1060 E=T!#60 ; E=E+M 

1070 F=20/60'REM '20' ER IIMELON 

1080 G=F*E 

1090 PR IN1" KIHilBU HAR IJENT a"G"»CR. " 

1110 PRINT"JWitSKHL BE"G"KR. PLU.SES TOTALEN CJ/N) ?" 
1120 GET GT 

1130 1FGI="J"THEN1200 
1140 IFGI="N"THEN1300 
1150 GOTO1120 

1200 B=B+G'P0RX=1TO500=NEXT:OOTU200 
1300 F0RX=1TO500 GOTO10 




n 


/ K«rel»ser. ( <4 t l 1 \? LI 

/ Vi hiber.otdu ertilfreds med progrommerne i \\\* JU 
> SPECIAL. 

Skulle du ligge inde med tilsvarende gode - og mdske endnu sjovere og 
bedre - programmer, du selv har lovet, horer vi gerne fra dig. SOFT er I 
nemlig laesernes blod, og vi betaler op til 1000 kroner for et rigtig spaen- 
dende program. Og miskefdr netop dit program en fremtraedende plods 
i det naeste SOFT SPECIAL eller i "Alt om Data". 

Indsend dit program pd kassettebind eller disc og gerne vedlogt en ud- ‘ 
printning. Samtlige programmer testes og vurderes, inden de offentligge- 
res. Alt materiale returneres efter brug, og bladet har fuld ret til at publi- 
cere programmet po tryk og eventuelt andet lagermedium. 

Programmer sendes til "Alt om Data", St. Kongensgade 72, 1264 Koben- 
hovn K. 
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JAMEN ... Eft 
DET iltKE 
STRIP- POKEft 
????? 







1 



10 BORDER 6: PAPER 4: INK 0: CLS 
20 BEEP .5,20: BEEP .2,20 
30 PRINT AT 0,5 i INK 1 


■*0 PRINT AT 1,10; PAPER 4; INK 0;"SPIL 
LEREGLER" 

50 PRINT AT 3>0;"Poengel i dette spill 
et er oa laa ko'tsummen saa noer 21 so 
m mulig-men ikke over.Du starter spill 
ct med 1000* 09 et kort.Du bllr saa spur 
t om huor mye du vil satse." 

60 PRINT AT 10,0; La oss si at du laar 
en Konge, og at du satser 100* paa den 
.Du laar saa en 5’er og har total- summ 
on 18.Naar Spectrum spoer ’OiI du ha e 
t kort til ?’ trykk ’j’ lor ja,Huilken s 
om heist annen lor ne i. 

20 PRINT AT 17,0; Huis nei vil Spectru 
m dele ut bankens kort." 

80 PRINT AT 20,6;"Trykk poo en knapp." 

80 PAUSE 0 
100 CLS 

110 PRINT AT 0,0; 5 kort med totolsum p 
oa 2 ] ellermindre teller som 21." 

120 PRINT AT 3,01'Banken vil trekke kor 
l til han laar 16 eller mer.eller mer e 
n n deg." 

130 PRINT AT 7,01 Huis du og bonken laa 
r samme sum,da winner bonken.Dette er 
1 Bankens lorde l 1 . 

140 PRINT AT 12,0;"Korluerdiene er 2 ti 
I !3,pluss Esset som teller som 1 eller 
M.Oerdien lor Esset vil automat i skb l i 
Justert lor aa gi en sum saonaer 21 som 
mu I i 9 . " 

150 PRINT AT 18,0; Huis du laar 21 vil 
Spectrum automatisk dele ut bankens k 
o r t. " 

160 PRINT AT 2],5;"Trykk poo en knapp." 
170 PAUSE 0 
180 CLS 

194 REH BaaaaaBaaaaaaaaaaaaaaaa 

195 REH Start spillet 

196 REH auaaaaaanaaaaaaaaaaaaaa 

200 CLS 

210 LET penger=1000 
220 : 

230 PRINT AT 0,14; PAPER 2; INK 7;.21 

240 PRINT AT 0,2; PAPER 0; INK 6;"SPILL 
ER" 

250 PRINT AT 0,23; PAPER 0; INK 6;"BANK 

EN” 

270 LET x*=" 

280 LET y*=" 

290 LET z*=" 
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Kort og godt 


■ I dette selvlorklarende 
Spectrum spil skal du nd en 
sum pd 21 eller sd test pd som 
muligt. uden at overstige 21. □ 
Leif Kvernhusvik 



300 FOR o=2 TO 18 STEP 4 
310 PRINT AT o,2i PAPER 7i INK 0;x*;AT 
0,23; PAPER 7; INK 0;x® 

320 NEXT o 

330 FOR o=3 TO 19 STEP 4 
340 PRINT AT o,2; PAPER 7 i INK 0;y®;AT 
o,23; PAPER 7! INK 0;y* 

350 NEXT o 

360 FOR 0=4 TO 20 STEP 4 
320 PRINT AT o,2; PAPER 7i INK 0;z*;AT 
o,23; PAPER 7i INK 0;z* 

380 NEXT o 

494 REM tttMiiiiiiinMittiMtintttinittittnntttt 

495 REM Uoriobler 

496 REM tutnnnnttiittttitnititiiHitnHnitMtt 
500 LET llnje=3: LET sum=0 

510 LET t rekk =0 : LET ess=0 
520 LET red=0 
530 LET o*="Ess" 

540 LET b*="Kon9e" 

550 LET c*="Dome" 

560 LET d*="Knekt" 

994 REM ii»ii»nn«iiaaiiiiiiiiiiaaaiiiiiina 

995 REM Trekk et kort (15 

996 REM aaaaaaaaaaaaaaaaaaaaaaa 
1000 LET o=2+I NT (RND*I3I~ 

1010 : 

1020 IF o=)4 THEN PRINT AT llnje,3i PAP 
ER 7i INK 2 ;o® : LET ess=ess+l: LET sum's 
um»!4 

1030 IF o=13 THEN PRINT AT linje,3; °AP 

ER 7i INK 2;d$: lET sum=sum+13 

1040 IF 0=12 THEN PRINT AT linje,3| PAP 

ER 7i INK 2 ;c.* : lET sum=sum+12 

1050 IF 0 = 11 THEN PRINT AT l inJe,3; PAP 

ER 2; INK 2 id*: lET sum = sum+ll 

1060 IF o< = 10 THEN PRINT AT linje,3; PA 

PER 7; INK 2 Jo• LET sum-sumto 

1070 LET lrekk=trekk+] 

1494 REM aaaaaaaaaaaaaaaaaaaaaaa 

1495 REM Innsots rutine 

1496 REM aaaaaaaaaaaaaaaaaaaaaaa 

1500 PRINT AT 6,10; Ou hor'';AT 7,I0;°en9 
or ; t" 

1510 IF penger (=0 THEN GO TO 9000 

1520 INPUT "Hwor mye solser du ? "i.nnso 

ts 

1530 IF i nnsots>pen9er THEN GO TO 1520 
1540 PRINT AT 10,10;"Du sotser";AT 11,10 
; .nnsots ; * 

1994 REM aaaaaaaaaaaaaaaaaaaaaaa 

1995 REM Trekk et kort (2) 

1996 REM aaaaaaaaaaaaBaaaaaaaaaa 
'2000 LET l inje = l inje + 4 

2010 LET o=2+INT (RNDX135 
2020 : 


2030 IF 0=14 THEN PRINT AT linje,3; PAP 
ER 7; INK 2;o$: LET ess=ess»]: lET sum=s 
um+14 

2040 IF 0=13 THEN PRINT AT llnje,3; PAP 

ER 7} INK 2ib*: lET sum=sum+13 

2050 IF o = 12 THEN PRINT AT I inJe,3 ; PAP 

ER 7i INK 2;c$: LET sum=sum+]2 

2060 IF o = ll THEN PRINT AT linje,3 ; PAP 

ER 7; INK 2;a®: lET sum=sum+ll 

2070 IF o<=!0 THEN PRINT AT linje,3; PA 

PER 7; INK 2;o: LET sum=sum+o 

2080 LET trekk=lrekktl 

2090 IF sum>21 AND ess>red THEN LET sum 
=sum-13: LET red=red+l 

2100 IF trekk=5 AND sum<=2! THEN LET su 

m=21 : GO TO 3000 

2110 IF sum=21 THEN GO TO 3000 

2120 IF sum>21 THEN GO TO 4000 

2494 REM aaaaaaaaaaaaaaaaaaaaaaa 

2495 REM Et kort til ? 

2496 REM aaaaaaaaaaaaaaaaaaaaaaa 

2500 PRINT AT 21,0; PAPER 5; INK 0;"Uil 
du ha et kort til ? Cj/n5" 

2510 PAUSE 0 

2520 IF INKEY*="J" OR 1NKEY*="j" THEN G 
0 TO 2000 

2530 PRINT AT 21,01 


i n j e,3 ; °AP 


2994 REM 

2995 REM 

2996 REM 
3000 LET 
3010 LET 
3020 LET 
3030 LET 
3040: 

3050 IF b 
APER 7; 1 
umb = sumb + 
3060 IF b 
APER 7; 1 
3070 IF b 
APER 7; 1 
3080 IF b 
APER 7; I 
3090 IF b 
PAPER 7i 
3100 LET 
3110 LET 
3120 IF s 
sumb=sumb 
3130 IF s 
3140 IF t 
sumb= 21 : 
3150 IF s 
TO 6000 


BaaaaoaaaaaaaBBaaaBBBaa 
Bonkens kort 
aaaaaaaaaaaaaaaaaaaaaaa 
Iinjeb=3: LET sumb=0 
trekkb=0: LET essb=0 
redb=0 

b = 2+I NT (RNDX13) 


=14 THEN PRINT AT linjeb,24; P 
NK ljo*: lET essb=essb+l: LET s 
14 

=13 THEN PRINT AT linjeb,24; P 
NK lib®: LET sumb = sumb + 1 3 
=12 THEN PRINT AT linjeb,24; P 
NK l;c$: LET sumb = sumb + 12 
=11 THEN PRINT AT linjeb,24; P 
NK 1 ;d® : LET sumb=sumb + 1 1 
<=10 THEN PRINT AT 1inJeb,24 ; 
INK 1 ;b : LET sumb=sumb+b 
trekkb=trekkb+l 
I injeb=Iinjeb+4 

umb>21 AND essb>redb THEN LET 
-13: lET redb=redb»l 
umb=21 THEN GO TO 6000 
rekkb=5 AND sumb<=21 THEN LET 
GO TO 6000 

umb>=sum AND sumb<=21 THEN GO 


3160 IF sumb>=16 AND sumb<=21 THEN GO T 
0 3190 

3170 IF sumb>21 THEN GO TO 5000 
3180 IF sumb(sum THEN GO TO 3030 
3190 IF sumb>=sum THEN GO TO 6000 
3200 IF sumb(sum THEN GO TO 5000 

3994 REM aaaaaaaaaaaaaaaaaaaaaaa 

3995 REM Du likk lor mye 

3996 REM aaaaaaaaaaaaaaaaaaaaaaa 
4000 PRINT AT 21,01" 

4010 PRINT AT 21,0; PAPER li INK 7i"Bekl 
o9er,du likk ";sum-21;* lor mye, 

4020 LET pen9er=pen9er-lnnsats 
4030 PAUSE 100 
4040 GO TO 7000 

4994 REM aaaaaaaaaaaaaaaaaaaaaaa 
»995 REM Ou dinner 
4996 REM aaaaaaaaaaaaaaaaaaaaaaa 
5000 PRINT AT 21,0; 

5010 PRINT AT 21,0; PAPER 7; INK 2i"Du u 
• oner med " ;sum 

5020 IF sum=2] THEN PRINT AT 21,14; PAP 
ER 7; INK 2; FLASH 1 ;"21": FOR o=0 TO 30 
STEP 3: BEEP .05,a: NEXT a 
5030 LET pen9er =pengertinnsats 
5040 PAUSE 100 
5050 GO TO 7000 

5994 REM aaaaaaaaaaaaaaaaaaaaaaa 

5995 REM Banken winner 

5996 REM aaaaaaaaaaaaaaaaaaaaaaa 
6000 PRINT AT 21,0; 

6010 PRINT AT 21,0; PAPER 7i INK 1; Bank 
en winner med " ;sumb 

6020 IF sumb = 21 THEN PRINT AT 21,18) PA 
PER 7; INK I; FLASH 1; 21": POR a=0 TO 3 
0 STEP 3: BEEP .05,a: NEXT a 
6030 LET pen9er=pen9er-innsals 
6040 PAUSE 100 

6994 REM aaaaaaaaaaaBBaaaaaBaaaa 

6995 REM En runde til? 

6996 REM aaaaaaaaaaaaaaaaaaaaaaa 
2000 CLS 

7010 PRINT AT 10,5, En runde til ? (j'n) 
7020 PAUSE 0 

7030 IF INKEY® "J" OR INK£Y*="j" YHEN C 
LS : uO TO 230 
7040 GO TO 8000 

7994 REM aaaaaaaaaaaaBaaaaaaaaaa 

7995 REM Storte poo nytt ? 

79 '6 REM aaaaaaaaaaaaaaaaaaaaaaa 
8000 CLS 

8010 PRINT AT 10,1, UiI du florte poo ny 
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5 PRINT"® VELKOMMEN TIL JOE'S CASINO »” 

10 PRINT"J" 

20 P0KE53230,0:P0KE53281,0 i PR INT " S” ■ 

30 C=200 : 0M=0 

40 print" •srtJirsomfuw mmm mmmmmmm Mmmmwmsmwmmsimm ” 

45 print" asraas w 

50 PR INT“ JS999R VELKOMMEN TIL JOE'S CASINO ®" _ 

60 PRiNT-aasss *" 

30 PR I NT" asEias a" 

30 PR I NT''“Easts® D'J SKAL NU SPILLE ROULETTE ST ■ 

100 PRINT'a-EEJS ff" 

120 pr i nt" astasjss a” 

130 PRINT''*®®®®!? COPYRIGHT i BCSOFT «" 

140 pr i nt - - a ^ 

145 PRINT _ best 

iso input 1 ".raasKEEasEasEa tast dit navn nn* ^ , 

160 PRINT'.. D ^ fl 

165 PRINT ij MBBP AMBLER -" * N<" VI ER GLAOE FOR AT DU" Ud - S 

170 PRINT 9SBE30GER VORES OHHH. LILLE CASINO." le fo 

180 print rvaasutaaaaaaa hilsen joe the cas." lerfc 

220 FOR P=1 TO 7500iNEXT 
230 PR INT"J" 

240 PRINT'flU'REOIT = ”JC 

251 0M=0M+1 

254 PRINT" BHaSTSKEaS) ,-,” 

255 PRINT” |PLADEN1“ 

260 PRINT" 3 ■" 

270 print” as as as as a ■” 

280 PRINT” as 1 a B 2 a S 3 a B 4 a S" 

290 PRINT” as as as as as” 

300 PRINT” a S” 

310 print” as as as as as" 

320 print" ass as6 as7 ass as 1 ' 

330 print” as as as as as” 

340 PRINT” a S" 

350 PRINT! INPUT"53030R DIN INOSATS MIN. 10 KR.”JIN 

359 IF 0=500000 THEN 15000 

360 IF IN<10 THEN 10000 
370 IF IN>C THEN 10100 

380 INPUT" SIS 1 'A A HVILKET NUMMER < 1-8) " ) NR 

390 IF NR>8 OR NR<1 THEN 10200 
400 TF =INT< RN0< 1 ) *8 ) ♦ 1 

410 PRINT"SSDET BLEV NUMMER ! "JTF 

415 FOR P=1 TO 1000!NEXT 
420 IF TF=NR THEN 10300 
430 IF TF<>NR THEN 10400 

10000 PR INT"OOSaaSSSJIN NAERIGE GED! DU HAR SATSET FOR LAVT." 
10010 FOR P=1 TO 3000!NEXT!GOTO 230 

10100 PRINT" . MMDOnm j U LIDER VIST AF STORHEDSVANV ID ! ! ! ! " 

10110 PR INT"SSAA MANGE PENGE HAR DU IKKE! " 

10120 FOR P=1 TO 4000! NEXT’.GOTO 230 

10200 PRINT" .MIMBMinE R DU BLIND, ELLER BARE ALMINDLIG DUM ! ! ” 
10210 PRINT"gMUMMERET FINDES SLET IKKE PAA PLADEN!" 

10230 FOR P=1 TO 4000iNEXT!GOTO 380 

10300 PR I NT ” kJS-<URRAAAAAA . DU HAR VUNDET "JIN* 10” 

10310 PRINT"NU HAR DU"JIN*10+C”KR.” 

10313 C=IN*10+C 

10315 FOR P=1 TO 5000!NEXT!GOTO 230 

10400 PRINT"UBHA HA HA HA HA HA. DU TABTE”JIN"KR.” 

10410 PRINT "HPROV LYKKEN IGEN GAMBLER-" J N* 

10415 C=C-IN 

10417 IF C<10 THEN 10500 

10420 FOR P=1 TO 4000!NEXT:GOTO 230 

10500 PRINT " .iTOMMKEC U HAR VIST IKKE HELD I SPROJTEN VAR?” 

10510 PRINT"H33PILLET ER SLUT! !!!!!!!!!!!!!!!!!!!!!” 

10520 INPUT"gaVIL DU PROVE IGEN (J/N) ”)A* 

10530 IF A*=”” THEN 10530 
10540 IFA*=”J” THEN 5 
10560 IF A*=”N"THEN END 

15000 PR INT” .imttKKH YYYYYYYYL DU HAR VUNDET ALLE PENGENE" 

15010 PRINT“S330M JOE'S CASINO EJEDE. " 

15015 PRINT"H33PILLET ER SLUT!!!!” 

15020 FOR P=1 TO 5000iEND 


Casino 

Royale 


■ Med din Commodore 64 
besager du her Joe's Casino. 
Du fdr stukket en sum penge 
ud. som du meget geme skul- 
le forage. Sprceng banken el- 
ler bankerotten er sikker! □ 
Morten Brunnstrom 
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3D-Maze 


AMSTRAD 


10 REM ************* 

29 REM * id m*ze * 

30 REM ************* 

40 REM * «f * 

50 REM * M.B.J * 

60 REM ************* 

70 GOSUB 1370 

00 INK 0.0 INK 1,23-INK 2,6'INK 3.24'INK 4-0,15 INK 3,21 MODE O 
90 DIM no< 23 ). s*( 25 >,•»< 25 ), U0< 23 >» 4< 23) 

100 SC-0 T-0 PO-30 

110 SYMBOL BPTER 90 

120 SYMBOL 90.0,0,0,0.0.0,0,0 

130 SYMBOL 91,3.5,74,52,56,120,100,0 

140 SYMBOL 92,6.13.28.244,144,144,240 

150 SYMBOL 93,60,66,90,90,90,66,60.0 

160 SYM80L 94,24,36,219,126,219,24,36 

170 yrMBOL 95,60,116,127,100.112,124,24,63 

180 FOR 4-1 TO 23 

190 READ no'4),s*<4>,*s'4>.w*<4> 

200 NEXT 
210 A-l 

220 d-INT <RND< 1 >*15>*U 

230 *l-INT 'RNO< 2 >*25 >♦1 

240 IF »1<20 THEN »2-»i*5 ELSE *2-1-5 

230 n2-INT<RND<3>*10H16 

260 n3-n2-10 

270 m-1 NT< RND<4 >*25 >♦ 1 

280 IF *l-n3 OR »2-n3 OR n2-»l OR n2-*2 OR »l-d OR *2-d OR n3-d OR n2-d THEN GOT 
0 230 
290 4-1 
300 CLS 

310 IF Q-l AND KE-2 AND DM-1 THEN 1320 

320 PLOT 0,0 DRAW 600,0 DRAW 600,300 DRAW 0.300 DRAW 0.0 

330 PLOT 0,300 DRAW 70,230 DRAW 70,200 PLOT 70.230 DRAW 230,230 

340 PLOT 0.0 DRAW 70,70 DRAW 250,70 PLOT 70.70 DRAW 70.100 

350 PLOT 600,0 1 DRAW 530,70 DRAW 350,78 PLOT 530.70 DRAW 330,100 

360 PLOT 608,300 DRAW 530,230 DRAW 350,230 PLOT 530-230 DRAW 538.280 

370 IF r»o<4>>0 THEN GOSUB 690 ELSE PLOT 250,230 DRAW 350.230 

380 IF s*<4>>0 THEN GOSUB 720 ELSE PLOT 250.70 DRAW 358,78 

390 IF #*<4 »0 THEN GOSUB 740 ELSE PLOT 70,188 DRAW 70-208 

480 IF «•<4»0 THEN GOSUB 760 ELSE PLOT 530.238 DRAW 538,78 

410 ••■"INGEN TING" PO-PO-1 SC-SC+100 

420 IF 4-d THEN ••-"DIAMANTEN 1 |" 1 t-3 

430 IF 4-n3 OR 4-n2 THEN **-"EN N0GLE•" 1 t-2 

440 IF 4-*l OR 4-»2 THEN ••■"ET SVEAR"" t-l 

450 IF 4-m OR 2>0 THEN GOSUB 1030 

468 LOCATE 1,1 PEN 3- PRINT"JEC SER - M iS* 

470 A-10 B-16 

480 IF 4-m Oft i>0 THEN LOCATE 5. 16 PEN 7 PRINT CHR*95>. 

490 IF *v-2 THEN LOCATE 1.6 PRINT "CC" ELSE IF sv-1 THEN LOCATE 1.6 PRINT "C" 

500 IF k*-l THEN LOCATE 4,6 PRINT -\- ELSE IF l *-2 THEN LOCATE 4.6 PRINT"- ." 

510 IF dm-1 THEN LOCATE 0,6 PEN 4 PRINT"!" 

520 IF P0<5 THEN LOCATE 5,3'PEN 4•PRINT"ENERGI LAV" 

530 IF t-3 THEN PEN 4 ELSE PEN 3 
540 LOCATE 12.14 PRINT CHR»<90*t)> 

550 LOCATE A,B PEN 5 PRINT CHR«<94>, * 

560 IF JOY< 0 )-0 THEN 550 
570 LOCATE A,8 PRINT " ", 

5e0 IF P0<1 THEN 1270 

590 A-A-<J0Y<0 )-8 AND A< 16 >♦< JOY< 0 >-4 AND A>4 > 

600 B-B-< JOY< 0 )-2 AND B<20 )♦< JOY< 0 )-l AND B>12> 

610 IF *-12 AND b-14 THEN G0SU8 1210 
620 IF *-5 AND b-16 AND '4-m OP *>0> THEN 1898 
630 IF A-4 AND •*< 4 »0 THEN 4-.»<4)'G0T0 300 
640 IF A-16 AND u#<4»0 THEN 4-w#<4)G0T0 380 
650 IF b-12 AND no<4»0 THEN 4-no<4 >'GOTO 380 
660 t-0 

670 IF B-20 AND *v<4»0 THEN 4-»w( 4 > • GOTO 380 
600 GOTO 550 

690 PLOT 250,238 DRAW 250,280 PLOT 250.230 DRAW 220.280 
700 PLOT 220,288 DRAW 380.288 DRAW 358.230 DRAW 350,288 
710 RETURN 

720 PLOT 250,70'DRAW 220.20 DRAW 300,20'DRAW 350,70 DRAW 350.20 PLOT 258-78 DRAW 
258,20 
730 RETURN 

740 PLOT 70,100 DRAW 28,70 DRAW 20,230 DRAW 70,200 DRAW 28,200 PLOT 70,180 DRAW 
20-108 
750 RETURN 

760 PLOT 530.200 DRAW 580.230DRAW 588.70 DRAW 538,108 DRAW 580,108 PLOT 530-280 
DRAW 580-200 
770 RETURN 
780 DATA 0.6.0,2 
790 DATA 0.0,1,3 
808 DATA 8,8.2,4 
810 DATA 8.0,3.5 
820 DATA 0.0,4,8 
830 DATA 1-11,0,0 
840 DATA 8,8.8,8 
850 DATA 3.13.7,9 
860 DATA 0.8.8.10 
870 DATA 8.15.9,0 
380 DATA 6.0.8.12 
890 DATA 0.17.11.8 
980 DATA 8.18,0.14 
910 DATA 0,8,13,15 
920 DATA 18.20.14,8 
930 DATA 8.21,0.17 
940 DATA 12-0.16,0 
950 DATA 13,0,0.19 
960 DATA 0.0.18,8 
978 DATA 15,25.8.0 
980 DATA 160.0.O 
990 DATA 0.8,0.23 
I00O DATA 0.0,2.?-24 
1018 DATA 00.23,25 
1020 DATA 20.0.24,8 
1830 z=z*l IF r-4 THEN 1090 

104O IF sv O THEN ?*«"EN SLAGTET OR! " " z-0 M*!NT<RNDI25>*1 SV-SV-I SC-SC+500 PO 

■PO-5 

1050 IF z— 1 THEN *§-"EN ORK ! IHJEALP 1 f " 

I860 IF z-2 THEN »«-"ORKEN IGEN 1 '" 

1070 IF z-3 THEN *«-"SAA G0R DOG NOGET'" 

1080 RETURN 
1090 CLS 
1100 PEN 6 

1110 IF *v>0 THEN 308 

1120 LOCATE 4,5 PRINT"ARRHGGG...DEN KORT-" 

1130 LOCATE 4,7 PRINT'SLUTTEDE MIT" 

1140 LOCATE 4,9 PRINT"KREDSL08..." 

1150 LOCATE 8,11 PPINT"JEG ER " PEN 4 PRINT TAB' 5)> "FAERDIG- 

1160 LOCATE 3,18 PRINT "SCORE -",SC 
1170 PEN 2 

1180 LOCATE 7.25 PR I NT"-'SPACE >" 

1190 WHILE INKEY' 47)00 WEND 


■ I dette spil gcelder det om 
at linde den tantastiske dia- 
mant, der it 0 lge sagnene lig- 
ger nede under byen. Pd 
grund at gittige dampe har 
du en robot, som du skal 
tjernstyre rundt i gangen med 


joysticket. 

Undervejs i jagten risikerer du 
at stode pd et uhyre. Oveni 
det hele har robotten selvtal- 
gelig kun begrcenset str 0 m! □ 
Mikkel Birkegaard Jensen 


w 



1200 RUN 

1210 IF 4-d THEN dm-1 d-0 t-0 SC-SC*1000 LOCATE 6,6 PEN 4 PRINT 1 J' 
1220 IF 4-»l THEN *v-»v*l *1-0 t-0 SC-SC+100 LOCATE 3.6 PRINT"C" 

1230 IF 4-*2 THEN »v-»v*l'*2-0 t-0 SC-SCMOO LOCATE 3-6 PRINT"! 11 

1248 IF 4-r>2 THEN k*-k**l o2-0 t-0 SC-SCMOO LOCATE 5,6 PRINT" " 

1250 IF 4-n3 THEN k*-k*M n3-0 t-0 SC-SC*20O LOCATE 5.6 PRINT". 11 

1260 RETURN 

1270 CLS'PEN 4'LOCATE 1.10 PRINT" IKKE MERE STR0... *' 

1280 LOCATE 3,14 PEN 5 PPINT"SCORE -",SC 
1290 LOCATE 723 PRINT"<SPACE>“ 

1300 WHILE INKEY'47)00 WEND 
1310 RUN 

1320 CLS SC-SCM000O4PO PEN 4 PRINT"R0B0-1 ER UDE "!'" 

1330 PEN 1 LOCATE 1,10 PRINT TAB-5>,"SCORE -".SC 
1340 LOCATE 7,23 PRINT"<SPACE>" 

1350 WHILE INKEY< 47 X >0 WEND 
1360 RUN 
1370 MODE 1 

1380 INK 0,27 BORDER O INK 1,15 INK 2,0,6 
1390 LOCATE 15-5 PEN 1 PRINT "3D m#z* 11 
1400 LOCATE 5.7 PRINT“ET GAMMELT SAGN SIGER" 

1410 LOCATE 5.9 PRINT“AT I KATAKOMBERNF. UNDER DIN BY" 

1420 LOCATE 5.11 PRINT"LIGGER EN STOR UVUDERLIG” 

1430 LOCATE 15,13 PRINT-DIAMANT" 

1440 LOCATE 5.15 PRINT"MEN I KATAKOMBEPNE ER EN " 

1450 LOCATE 5,17 PRINT"GASART DER NAESTEN AETSER" 

1460 LOCATE 5.19 PRINT"ALT.DERFOR HAR DU" 

1470 LOCATE 5.21 PRINT"LAVET EN R080T - ROBO-1> SOM" 

1480 LOCATE 5,23 PRINT"SKAL GORE ARBEJDET FOR DIG." 

1490 LOCATE 5,25 PRINT"R0B0-1 HAR NEGET BECRAENSET STR0M" 

1500 WHILE INKEYt-””'WEND 
1510 CLS 

1520 LOCATE 5,1 PRINT*'SAA DERFOR MAA DU VAERE HURTIG" 

1530 LOCATE 5-3 PRINT"OM AT DIRIGERE HAM RUNDT.- 
1540 LOCATE 5.5 PRINT"UNDERVEJS FORTAELLER ROBO-1" 

1550 LOCATE 5,7■PRINT"HVAD HAN SER.NAAR HAN HAR" 

1560 LOCATE 5,9 PRINT"FUNDET DIAM.OG TO N0GLER SKAL" 

1570 LOCATE 5.11 PRINT"DU HURTIGT F0RE HAM TIL" 

1580 LOCATE 5,13 PPINT"UDGANGSPUNkTET.EN ANDEN TING" 

1590 LOCATE 5.15 PRINT“SKAL DU VIDE I LABYRINDEN GAAR" 

1600 LOCATE 5,17 PRINT"EN ORK RUNDT DER SYNES" 

1610 LOCATE 5,19 PRINT"AT TRIVES MED GASSEN.DEN ER" 

1620 LOCATE 15,21 PEN 2 PRINT"FARLIG" 

1630 LOCATE 6,24 PEN 1 PRINT"TAST <SPACE> FOR SPIL" 

1640 WHILE INKEY( 47)00 WEND 
1650 RETURN 
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1 REtl UEO ’BREAK’ BRUG ’GOTO 20’ 

2 POKE 23658,8: BORDER 7: INK 0: PAPE 
R 7: PLASH 0: BRIGHT 0: OUER 0: 1NUERSE 
0 

11 GO SUB 9090 

20 CLS : PRINT "SPIL SCORE 

NAUN" 

30 PRINT 11 - 

39 LET 2=65 

40 FOR Y=1 TO SPIL 

50 PRINT CHR* 2;". " ;S$m ";R*CY3;N$ 
(Y) 

55 LET 2=2+1 
60 NEXT Y 

70 PRINT "- 

80 PRINT B1;AT 1.0;HAR DU SLaET REKOR 
DEN Pa ET AF DISSE SPIL FLASH 
PLASH 0;” (J^N) 

90 PAUSE 0: I> NKEY$="" THEN GO TO 9 

0 

100 IF INKEY$ " THEN GO TO 1000 
110 IF INKEY* N" THEN GO TO 2000 
120 GO TO 90 

1000 POKE 23617,236: INPUT "HU1LKET SPIL 
FLASH 1 J; PLASH 0;" (TAST- BOGSTAU 

r ;x 

1010 INPUT "SCORE "i LINE B* 

1011 IF B*="" THEN GO TO 1010 
1020 IF LEN B*>7 THEN GO TO 1010 
1030 LET R*CX)=B* 

1040 INPUT "HUAD ER DIT NAUN "! LINE C* 
1045 IF C* = ‘" THEN GO TO 1040 
1050 IF LEN C*>]0 THEN GO TO 1040 
1060 LET N*(X)=C* 

1070 GO TO 20 

2000 PRINT B1;AT 1,0J"OIL DU SAUE DISSE 
DATA Pa BaND "S PLASH 1 i"7" i FLASH 0; "(J 
'N) 

2010 PAUSE 0: IF INKEY*="” THEN GO TO 2 
010 

2020 IF INKEY*="J" THEN GO TO 3000 
2030 IF INKEY*="N" THEN GO TO 4000 
2040 GO TO 2010 

3000 CLS : PRINT AT 9,6)"SP0L BaNDET TIL 
BAGE OG TRYK Pa EN TAST." 

3010 PAUSE 0: SAUE "REKOROER" LINE 1 
3020 CLS : PRINT AT 9,2;''SPOL BaNDET TIL 
BAGE OG TRYK Pa ’PLAY’ Pa BaNDOPTAGE 
REN. " 

3030 UERIFY "REKOROER” 

3040 GO TO 20 

4000 PAUSE 0: PRINT B1iAT i,0i" 

TAST ’S’ FOR AT S 

TOPPE" 

4010 IF INKEY*="" THEN GO TO 4010 
4020 IF JNKEY$="S" THEN STOP 
4030 GO TO 4010 

9000 LET SPIL — 11: POKE 23617,236: Din S* 
(SPIL,12): Oin R*CSPIL,7): Dill N*CSPJL,1 
0 ) 

9005 FOR Y=1 TO SPIL 

9010 INPUT "SPILLETS NAUN LINE A* 

9011 IF A* = "" THEN GO TO 9010 

9012 IF LEN A*>12 THEN GO TO 9010 
9020 LET S*CY)=A* 

9030 INPUT "SCORE "i LINE B* 

9031 IF B* = "" THEN GO TO 9030 

9032 IF LEN B*>7 THEN GO TO 9030 
9040 LET R*CY)=B$ 

9050 INPUT "SPILLERENS NAUN "; LINE C* 

9051 IF C*=”" THEN GO TO 9050 

9052 IF LEN C*>10 THEN GO TO 9050 
9060 LET N*CY)=CS 

9070 NEXT Y 

9080 LET A=1: LET B=2: LET C=3: LET D=4: 
LET E=5: LET F=6: LET G=7: LET H=8: LET 
1=3: LET J=10: LET K=11: LET L=12: LET 
11=13: LET N= 14 : LET 0=15: lET P=16: uET 
0=17 

9085 GO TO 20 

9090 FOR Y=USR "A" TO USR "A"+7 : READ S’ 
POKE Y,G: NEXT Y: RETURN 
9095 DATA 24,0,60,66,126,66,66,0 


Guinness 

Records 

■ Er du bedre end din iar til at trum 16K/48K. skriver du ' 'GO- 
spille PacMan? TO 9000". 

Er du bedre end din bror til at Computeren sparger dig om 
spille "Space Invaders"? 11 at dine spilleprogrammers 
Har du sldet din vens rekord i navne. om 11 ' 'High Scores" 

"Jet Set Willy"? og om navnene pd de 11 spil- 

Med programmet "Rekor- lere, som har "Hich Scores", 
der'' kan du hurtigt finde ud I linie 9090 og 9095 laver vi et 
at. hvem der er ndet lcsngst i "A " ud at gratisk " A". S6 du 
hobby 'en og hvor langt han/ skal huske at rette det i linier- 
hun er ndet. og om du er ndet ne 2000, 3000 og 3020. 
lcengere. Husk at' 'SAVE" hver gang du 

N6r du har tastet hele pro- cendrer pd navnene.D 
grammet ind i din ZX-Spec- Karsten Hansen 
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II w lian KIIIMI* 858114 

21 O' 

51 fflSUB I'l® 

40 WOE 1: »8ttB 5: IW 8.1= INK 1,24: PEN l: POPE* | 

51 LOCATE 83:PBINT *V*iiM>*n t. • 30-i*br:.it.‘i uMlMCYl: IF m*«" TO 31 
M lOOt 2: JEFINT , 

78 HlfOOw •I.IS.6S.A. 19 

01 Kiwi: truel ' 

® mwin* 

in gosls in 

121 lOCO’E itl|i point * ?nm •) <n * 

138 LOCATE 1.12: POINT ■ i*st for * 1 

148 JTO't :j: °0lNT • n. I 

151 mMlMCVIl If .«*■•• 00T0 158 I 

** K M ■ 

178 GOTO 31 BK ■ 

181 as: LOCATE 18.18 

131 IMPUT 'lm> t,r»t Sturm* («,») : *; s. s. 

* B®OX17E TIIC w ■ _j 

211 Mtrtr-l: u»ti*i: u*i»*l 
228 DIN Mz*4<t.*l.*r*l>.z»<8).z3t8>.if»<8> 

231 DIN *i(18).ruU8).yd(18).cut(4).iim<IIM) I .-- OT _. r> I 

2*8 ««: vnr: —399: «.25l: ■■•»: Mr I AMol HAL) I — 

258 yi*a*2: vr*w»2»4|: «'« I I I 

2® 00IG1N 128.38 I I •) I 

2TB q» i*l TO 18 | ^ L I 

2® «*(.)*ii ru(.)*n-i«vy/n: r*(,)*v»*i*(«r-vr)/»it: —*7.5/18 ‘ — 

238 *XT . 

3n FN >*l TO ir*|i «zi«(l.i)**Miri ■izr»(»i*l.,)**:e«*: NOT , 

318 FOB .*2 TO v 

528 ■4>t4l..ir* 11 * *M8I*: uzH<.. 1 >«*Bl«8* 

338 rOB .*2 TO «: MZ(8(..«)*'l!ll*l NC*T , 

348 WIT , 

358 Mi*«(l.l)''ien’: ■4Z*t(l.si*|i''H0l* 

388 «zH(ti*l.l>‘‘MK': Mll8(«i*I.W*n«'Mr 

318 r*K*2*l: **v»2*;: d*t 

381 LOCO*E J. 12: POINT '8.mih.' 

338 lQCO'E 18.14 IPBINT •Unr.nuo Mft*r*iM H s 
•» rot «4***.-: to n 
til *o«.**fa.S£ 

428 'i 

438 ■u*i(r-l.|)l* a llir THEN .*i*U cut <0*1 

448 If U2ft<r.fi»*"llll' TWN cut(11*2 

458 If MZ*4(fl.»))**MU- .■|*|l (ut«.)*3 

460 if mi* 4(r,«*|»**|Ur TWN cut(.)*4 

471 If ,01 GOTO 488 QSE 358 
488 i*lhT(M*i*I> 

438 If c«t<i)*l TWN wi*»(r,tl*1'*NlD»(MJ*»(,.*>.2.3)1 (•r-HMZ*«(r.t>#ID»<M!H<(.tM.2)*‘r'>NI0l(HZ*«(r.«).4.l) 
•J8 If <vt<«)*2 TWNMitt(t.t>«lM(ttM*<r.tM.3>«’l*i •H-liui«*(r.*>«IM(ui*(r.*).l.|>* a |'*NlDI(Mtrt(r.*).3.2> 
518 If c«t(.)*3 THEN iuj*l(r.»)-1!D»(MZ*»(r.t>.1.2>* , r*NlD4(Mirt(r.t).4.1)ir*r«llwlH(r.t)**r*8ID»(MM8(r.«).2.3> 
328 If cut!.1*4 THEN «uH(r.*)«!M<MZri(r.*M.I>*®"»NID»<aiz«l<r.*>.^2):»n*i:MZ**(r.»)*NlD«<Mirt(r.*M.Jlrl’ 
138 kw'U 

548 GOTO 678 

se k*CO?;ze tine 

•M If «*l THEN 571 ELSE 628 

371 If r*ft TKN » LSE fM 

■Jt If •-« TKN r*2i **2 aSI n«M> ••-* 

538 GOTO 661 

6* iru 

618 GOTO 661: BEh ETClf 

628 If r*2 T»C« 638 ELSE 658 

638 If *y THEN int »»2 a9 ••••H **-d 

648 GOTO 668 

658 r*r*d 

668 If M2H<r.»)0‘mr THEN 671 aSE 358 

678 If *o«-l T»CN 428 QSE 688 

688 POINT 82. \*l 

638 JCIT * I44*t 1(68 

’# tM»: K-, 1(71 

718 ,* INT(W*(m-|)*2) 1(88 

728 «iiH(,.l'>‘8888- 1631 

738 «iz*4l ■ .2) •N104(MZ*»( ,.2).l. J)*‘r '.’ll 

'48 ft*;NT(B«>(»-|)»2) 1711 

758 ftl'rsl *t*y 1728 

768 LOCATE 18.16: POINT *Ubrr,»t HrOit •,0ft.* 1738 

778 POINT 0*1(7) 1 1741 

788 M|NT(«0p4*|> 1758 

738 If »•! T»«N r«4i *•-! 1768 

388 If M2 T»€N r»l X t-8 1771 

818 If f*3 TUN r*8: vl 1788 

821 If f*4 T>CN i-|l t>l 1738 

838 *OM*FAlS: «u,t'ffl9E: *•■!: n>»W 1W0 

848 as till 

SB COSH 1321 1828 

868 LOCATE 48.2: POINT NIDK'lfeUfct Sr* V**f. M4-3.4) 1838 

8T8 JEATE 23.22: POINT -;0«*C242>s* >tO««<24n>: a •tCHP*<243>!' for <t firtt* *.i*::iOOITE 1.23 1848 

Bffi Ml-3: h.8-6: b*l*485: »)' 257: G09A 1318 1858 

B® wl’-ll: br8-11: b.lMlS: Ml* 26J: GOO® 1318 1868 

388 OWN -3.-6: NM -5.257: DA® -15.267: IUE 415.2571 IMH 415.267 1871 

311 *)VE 485.-6: DM4* 419.-19 1888 

328 —or: 1838 

S38 If Ml T*«N *4»-:i«n: If u%>- IfO 358 (LSI *<JSC<4iO> 1388 

348 If k* 2»2 Thf> 358 0.5 1128 1918 

ra fM-i 1328 

368 IF HI THEN <*4 1938 

n IF Ml TWN fix l*-l 1348 

3U IF m 2 THEN f«l! vf 1*8 

318 IF M3 T«N r*«: **l 1368 

M If f*4 TUN r—lx «4 1978 

mi mi ;32i lies 

II :* -243 THEN 1831 ELSE 1188 1338 

:ri mmi ;« 

842 if f)4 n«N Ml 2811 

.138 'J Ml TKN .4! M-l *8 

1KI IF f*2 TUN Mil v4 2838 

in 'J M3 THO ««li Ml 2841 

:ci if f*4 no r*-n %>9 :T4 

1838 GDSbl 1328 X* 

1188 If .*2X8 (iCN III! EcSE lltt 2878 

;::i .-«>sw»«f-i>rMz*iift.»)*wzH«K.«' 2« 

1128 If NIDl<zl.8.H»"l‘ THEN POINT CM8(7)1I G0*0 1188 as 1138 •« 

:i3* mw: :im 

1148 I? «cim ro»m<M)*f 2118 

1158 ft*H»r: **v*s 2121 

1168 If v(2 n«N *oftMT®£ 2138 

1178 G09® 133 2148 

1138 'J «*ASC(‘0*> OR .*BSC(V) TO «u.t*T(|E: *et»*TOUE 2158 

1198 l f vAKCD 00 »«08C(V) 08 rr*32 TO l?M ELSE 1271 2161 

138 1B9J8 1698 2171 

1218 —: —: GOSUl 1648: «N Mndwv) 2188 

123 44MIWEYI: IF 4i»«” n-EN 128 7138 

1238 OS 238 

:24l GOIGIN 128.31 2211 

1258 CCSm 133 223 

1268 POINT CHBir 7» t 2238 

1271 If »*** 'O 368 ELSE 1288 224| 

1288 IT WT «u.t TO POINT OTOK7): 2258 

1298 m® 16® 2268 

1388 3SUB 1938 2271 

1318 RETUAI 2268 

133 ft*2: 4*h: b*»: ff4*SP«t£»(f-l) 2298 

133 a®l 2388 

1341 zMMzrHi.b): iMMWzI 2J:I 

1351 If NI0Hzl.5.1)*‘r n€N rr-l: OSJB 1478: fflTO 1388 aSE 1368 233 

1361 i24*»4i**<**t.»-r): z2**ffMz2*«z3 ••- 1 

1371 If NIDt(z2*.8.1)« , l* THEN ri*-l: m® 1538 :n * 


Amlab 



1388 IF NIDKzl.7.l)»*r M* n«|: GCSU8 1471: GOTO 1418 ELSE 13® 

.1® z2W4X*H*-Vb*r>: x2t*ff*«z3*z3 

1481 If i;M(z3.8.1)**r TO ri*i: GOSLB 1531 

1411 If NI08(Z*.8.!)*M* T>€N 143 aSE 1438 

143 m* 15®: **999: GO’G 1448 

1438 w*i: ***•:: «>b*i 

l**l IF ib.‘8 TO u8>l«C3iIf •»*()■* TO «br*ASC<*rt> 

1458 ir ft)II 01 b<2 » KM08 TO 1468 (1S£ 1348 

1468 3TU» n _ --- 

1478 tM 

14® DO® vi*r !•*«(■).r.(*) . N 

1581 DO® w*rl*«i(b-l),M<ft-|) ^ i. 

1518 If «12 TO CO® v**n«*i(»-l).»u<b-l) \ J|H 

153 Bin* ( 

1511 POVE .■•n*d««irl>,rv(ii» i W Y 

1541 DB® vi.ri**«(.).r*(r) \Ji Ja \ 

1558 DB® v.-r !•*«(■).»*(■) f < .1 

1561 DB® vi*ri*«ifii-l).M(n) I I.' ' 

1571 BETUtr l |; NAs 

15BI HOVE vi«i(ft).nr(n> rV l' v 

13® oo® »■**■(*>. ra(n> / Ny* — \ 

!(M DB® r*(ft) [a 

1(11 DO® vi-*i<»>. rw(ft) L l/ v .. ^ 

1(3 DB® vi*di(b).rv(ft) \1'- • ■’ : V- 

1(38 BITl* ^^■■■1 

1(41 NOVE (■•B.3)**k0ft> (Mf.3>*ri0ft , 

IC8 DB®I l,5*Mon.91 a . 


1(68 UMB (-4.3)*i»oft. (-8,25>*r«cr. 

1(78 DP®0 8. <8,3i*»or>. 1 

16 ® «ru» 

16® n*,i«M. 

it® as 

Ull If «..t**SE fM «or#-T(U TO 173 aa 1738 
173 LOCATE 1.2: POINT • 8r*v« « •. 

1731 LOCATE 1.3: POINT • *r m* , •. 

1741 LOCATE 1.4: POINT • 


:CNBI(243):' for «t »i At* *.»*:HOCOTE 1.23 


n Du bliver lukket inde i en to- 
dimensionel labyrint, som du 
sd skal slippe ud al i fcerrest 
mulige trcek. 

Du vcelger selv labyrintens 
stprrelse. f.eks. 10x10 felter, 
men du kan fd op til 50x50 
ielter. 

Ndr du er kommet ned i laby- 
rinten, styrer du med dine cur- 
sortaster. Med space-tangen- 
ten kan du kalde et billede af 
labyrinten frem, sd du kan se, 
hvor udgangen er. 

I pvrigt (dr du et tre-dimensio- 
nelt billede at gangene ndr 
du vandrer rundt nede i laby¬ 
rinten. 

Til sidsl en lille advarsel: Hvis 
du vcelger en labyrint med 50 
x50 teller, kommer du til ai 
vente meget lang tidmens la¬ 
byrinten genereres.D 
-—- Klaus Kalles0e 


ira UXflIE l,?l WlhT * Btlv« d. '. Y//V//A '■ 

1731 LOCATE 1.5: POINT • »r m. . •. __ ft Jk 

1741 LOCATE I.Al POINT • *lwl*tr(« a . T \ ° . V 

is S>*"' \ \ ^ r 1 

;s ?—■•««. sP 7 

in# .»0ft*5®/(4*./3-l)i M0«.-S®/| 'My K ^ V i 

till WIGIN 125.4® nI \ - X Cl 

Id foo ,*tr»l TO I STEP -I I \ \\V 

1838 fOO .* •■•! TO I STEP -I f\, K & Vjj 

1141 TOVE .*»«* I A*y m ,-f /I 

1858 l4**UZ*8(«..) -W* \ \ /I 

Ifct If NIDKzl.I.l)**l* THDr KM AlMtoit AMO |\ \ 

183 ^tf NIN(z8.2.l)**I' TXN 8A9® iNMn.l ELSE HMR Imnob.I 

1311 b*8.brl: DB® brt.Mll DB® bil.MH l*® Ml.brBt M® b«8.brl 

1341 if iMtiirn to iMt'im jfc\. / \ 

1958 .*h|t r*vl \ / \\J \ w-v- L \ 

1368 me i64i I ja i»l\ 

i97i gosli 23® l n IX*? 

13® f0» -I TO >M1 jV V / V / \ 1,1111 

13® mMDKETI: If nror 19® | Wff* \v . AXll 

3® o.*»: or«»: «**-(i*i2l•<■•*)x r*»*«Ml)-<M3) ////f7777jjf/ - _T\{Ullj 

311 ««*oi: »»»or: CD98 3® ////$///" l vW 

*8 m* i64i uiiipjBm: SV* Xv 

2838 «XT , 1 ^ \ ' \V \ 

341 «ETU® \ \ \C V 

358 HM (..*•■ ai*.io«,(ir*l.5)*r»on V_,\ _ --i:— 

3® n®b (8.5>*>iof>.8.i -v—~T V/YT JT 

2878 NOVEO (-8.251 *i«04.(-8.25) •.«» J J f? ’ 

:«8 DB®» 1<15)**«04.8 j| / \*\ 

2111 S»*0L ffTEB 45 \\ // /B A. •> I 

2121 S*®a fEC<‘**). 13.216.216.254.216.216.222 • |V> -^V fX* * t 

213 S»f«L «(•«•>. 122.132. !M. 146.162.®. I® J J I 

2148 STI«L CKC*M.56.8124.13B. 34.138.1® ' // ^5\ IsL 

21® SY®a fBCC(*).88.H6.».l26.2l6.U8 SS i\ A ™/ 

21® S*®a «»•■•).88.118.284.214.182.23 ‘ \ \/%Mk r \ 4 1 /i // 

2171 S**0l f6C« , > , ).4e.8l2B.IM3.34.n8 Vffi&kX ' f XU Vfl 

21® S’lfa fEC 1 *8*). 124.198.1®. 136.198.136.124 V/Afll ^ 

21 ® nev Kf n.i.Ascf< , ).oa< , «*) 

231 HEY OEf 3.1.ASCCi*>.f6CCa*) ' T __ 

2211 KEY BEf 3.I.ASCC>M.f6C(VT / 

223 KEY BET 19.1. ASC<* <*».0SC<*>*) J 

2238 KEY Kf ’.7.l.ASC<’* , ).0SC‘***l II 

2248 KEY Kf 33.!.B6CC. , *.f6CC:*i /. 

Z* KEY 8EF 31il.A8C<*.*).A6C(*l*) /•/J^IL "Jb y T-V \ v 

22® KEY BEf 52.1.fiSCCr».(W(V) /•'//X 

2271 KEY V l5.l.0SC«*r).(6CCr) .if 

22® key 139.*.* I 4 j* ? y. ' 

:i® 0: IF M-l fflTO 2341 ^^ 

2318 SOJO 1.0.23.15:GOTO 23® 

233 »T0 39.31.198119.81®. 119.138 113.119.119.119.8 IIS. 116.188®. 119.1K.95.8 127.1^8119.119.119.119.119.213.31.1®. 119 9 
.8 T.9.81®. 119.119. IIS. 119.119.8142.159.169.142.119,95.8186.119.142,186.116.116,106.88 . 21^31 

2331 CATO 198119.8 l®. 1188 l®. 118118118119.8118186.:®.95.119.1®.95.8127.1«.8118118118118119,8 1181®.®. 119.1®. • 
95.8119116.119.95.119186.988 119.IK, 11995.119 IK.95.8127. .K.8119119119119-I 
2341 SE*W 


X .) 

Sff 
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POKE 23617,166: LET h=50: POKE 23603,20 


Blindebuk 


12' LET bb = ba 

20 PRINT AT 1,01 INK 25 "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" 

21 FOR ri = l TO 20: PRINT AT n, Oi INK 2: "A" 5 AT n, 315 "A" 

22 NEXT r, 

30 PRINT INK 2! " AAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAP." 

40 FOR r,=i TO (RND*30)+40 

41 PRINT AT (RND*20)+1> RND*3l5 INK 25 "A" 

42 NEXT n 

43 PRINT AT a.bi INK 75 "B" 

44 FOR n=l TO ba 

45 LET a(l,n) = INT <RND*19)+1 

46 LET a<2, n) = INT (RND*23>+1 

47 PRINT AT a (1,n),q<2,n)5"C" 

43 NEXT n 

50 PRINT AT 1,155 INVERSE 1! INK 25 11 N 

..AT 11,31!" "SAT 10, 315 "0" 

100 IF bb=0 THEN BEEP 3,3: CLS : PRINT 
102 IF IN 31=32 OR IN 31=255 THEN 




SPEC- 

fj 


TWJM 

I 


1 5 AT 21, 15!" S "5 AT 3,0!" 


"V‘” 


"SP¬ 


AT a. b! INK 6! PAPER Oi"3": GO TO 
INPUT "KviI Ken retning ?"S LINE r* 


10 


103 LET al=a 

104 LET bl =b 
106 LET r=IN 31 


107 

IF 

r =0 

THEN GO 

TO 106 


110 

IF 

r*= 

•sO 1 

' OR r=10 THEN LET a=a+l: LET 

120 

IF 

r*= 

'sv' 

' THEN 

LET a=a+l: LET 

b=b-l 

130 

IF 

r*= 

'nO' 

' THEN 

LET a=a-l: LET 

b=b+l 

140 

IF 

rt= 

'nv' 

1 THEN 

LET a=a-l: LET 

b=b-l 

150 

IF 

r*= 

*n " 

THEN 

LET a=a-i 


160 

IF 

r*= 


THEN 

LET a=a+l 


170 

IF 

r* = 

•0" 

THEN 

LET b=b+l 


ISO 

IF 

r*= 

V 

THEN 

LET b=b-l 



184 IF ATTR <a.b>=34 THEN PRINT AT ..AT a.bi INK 2S"B"i 30 TO 1000 

185 PRINT AT al.bl5 INK 75" " 

190 PRINT AT a.b! INK 7! "B" 

193 IF al=a AND bl=b THEN BEEP .01,0: GO TO 100 

200 FOR K = 1 TO ba 

201 IF q(1,K)=0 THEN NEXT K: GO TO 310 

204 PRINT AT a < 1, K) . a (2. K> 5 " " 

205 IF a) a (1, K) THEN LET o < 1, K) =0 ( 1 , k) + 1 

206 IF a <a(1,K) THEN LET aC1,K>=a<1,K)-1 

207 IF b<a(2.K> THEN LET a<2, K)=aC2, k)-1 
203 IF b)a(2,k) THEN LET a < 2, K I =a (2, K) +1 

209 IF Q(1» K)=a AND aC2,K)=b THEN GO TO 1000 

210 IF ATTR (a(1•K), a <2, K) )=S4 THEN FOR n = l TO 10: BEEP .1,0: PRINT AT aU.K), 
a(2,k)5"C”5: BEEP .1,1: PRINT iCHR* 3! INK 25"A“: NEXT n: LET o=o+10: PRINT AT 0 
.05 INK 2! INVERSE 15P5”:Points",h5":Ki-Sc": LET bb=bb-l: LET a(l,k)=0: LET q<2, 


A ) =0 


293 I c a(1,K)<> 0 THEN PRINT AT aC1,k),c(2,K)5"C" 

300 NEX' k 
999 GO TO 100 

1000 BEEP 1.-30: PRINT PT 1,0! n 5":POINT" 

1010 PRINT "Du DOEDE! 1 1 ! 1 ! ’ 1 ! " 

-020 PRINT h*5" oar rakordar, mad " 5 h 

1030 IF h(o THEN PRINT "Du s i og rakorden": INPUT "Skriv bit navn"5h*: LET h=o: 
■’RINT BRIGHT 1 5 " JUBI 111111 I" 

1040 PRINT h$;" ar r,u inr.anaver" 

1050 IF INKEY*="0" THEN CLS : GO T 0 3 

1060 ’RINT AT 21,0: PAPER (RND*7)5 INK 9S“7RYX PPA "5 INVERSE 15”0“5 INVERSE 05" 
FOR AT S’ARTE IGEN" 

1070 30 TC 1050 

5900 PAPER 4: BORDER 4: INK 0: INVERSE 0: OVER 0: BRIGHT 0: FLASH 0: CLS : -OR "i 
=65368 ”0 65338: READ a: POKE n,a: NEXT n 

5901 DATA 4, 13, 131,252. 253, 127, 55, 102,24, 24, 60, 126, 139, 60, 36. .02, 133, 152. 152, 255 
, 24, 24, 36, 102, 102, 120,63, 66. 66, 63, 120 

3302 PRINT TAB 145 F_A3K 15"ZULU"! FLASH 0’"I datta soil ar du an oodaseIsasreuS 
enda 11 5 INK 7s"B"! INK 05" fra Danmark.der staarm.dt , dat ,ndra Zimbabwe's 
s raassteoper. Ruridt om aaa sraes-ste-ooan 9ror dar KOdaadanda Planter "I INK 2 

!"C"i INK 05”, dar ssisar mennasker og dar ar ossaa Zu'luer C. der jagter 0,9 h 
-‘•la tidar, da ar ud~ styret mad kOiier.Dat gaaidar nufor d-9 at okka zuiuerna ■ 
Biantarna vad at aevaaga dig saadari at oianteri-.e ar 1 . 9 a ma-llem dig o 


9 zuluar.ea zuiuar. ikka kan sa oiantarria- 9aar han hen 1 mod dig 09 rysar 1 o an 
tan. " 


3903 PRINT Du styrar mandan rundt oaa skaarman vad at naar ZX-arer. saO 

rgar 'hvilkar, ratn>ri9 ?' svarar du mad n, s.'O, /> nO, nv, SO al 

’ ar sv (nord,syd,Ost,vest,nordOst. nordvest, sydOst, sydvest) as 

mariden bavagar sig hair baa dat Onskada sta-d (for at -iJaaicadam dar ,kka kan r,u 
ska kcunoasset i hovedat her ,sg s< revet dam uda . siderne. , “n*.d os l ykke"’, 
C. E<" 

9904 PRINT AT 21,0! PAPER (RND*7)5 INK 0!"TryK oaa an tast tor at start©” 

3997 IF INK3Y*="" “HEN GO ~0 3904 
9993 SUN 

3339 SAVE "ZULU’er" LINE 3900: GO r 0 9999 
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I dette spil til 16/48K Spectrum, 
skal du lokke nogle blinde 
udyr ned i et krater, hvor de 
vil omkomme. 

Men pas pd, tor deres lugte- 
sans er meget god, og kan 
betyde doden tor dig. 
Programmet er i ovrigt selvlor- 
klarende.D 

Christian Bernier 




Supertips 


■ Skal man lave reklame tor 
sit tipsprogram, er det bedste 
nok at tremvise hdndtaste re- 
sultater. Og jeg har faktisk 
vundet en 12 er ved hjcelp at 
programmet! 


Inden du starter programmet, 
skal du forst linde de ti storste 
dagblades prognoser, tor de 
tastes ind i programmets start. 
Held og lykkelD 

Hans-Erik Larsen 



1 SOUND 10. 10000 
5 BEEP 
10 CLS 

20 PRINT AT 3.101“tips-program"1 
PIT 7. 21 "Or.skerBduBi nstrukt ionerl. 
/n" 

30 IF INKEY*="J" THEN GOTO 900 
40 IF INKEY*="N" THEN GOTO 60 
50 GOTO 30 
60 CLS 

70 PRINT “raekkeBno. I1KI3KKI 
6B7BEB9B10" 

80 FOR A=1 T013 

85 PRINT fiT A+l,01 "xamnBno. " 1A 
90 DIM K<3) 

100 FOR B=1 T03 

102 IF B=1 THEN PRINT RT 21.61"ind 
tastBoddsBf orl” 1"" 

104 IF B=2 THEN PRINT fiT 21.61"Ind 
t ast Bod dsif orf'K “" 

106 IF B=3 THEN PRINT AT 21.61" ind 
t ast fcddsif c. r ■" 2”" 

110 INPUT K(B) 

120 IF KCEOllO OR K(B)<0 THEN GOT 
0 800 
130 NEXT B 
140K (1) =K (1) +2 
150K(2)=K<2>+2 
160K(3)=K< 3> + 2 

170 IF K(l)+K(2)+K(3) <> 16 THEN G 
OTO 700 

180 FOR B=11 T029 STEP2 
190C=INT <RND*16)+1 
210 IF C<=K<1) THEN PRINT AT A*1.B 
1 " 1 " 

220 IF OKU) fiND 0< = 16-Ki;3) THEN 
PRINT fiT fi+l.Bl "X" 

230 IF C>KC1)+KC2> fiND C< = 16 THEN 
PRINT AT fi+1, Bl "2" 

240 NEXT B 
260 FOR B=1 T06 

270 PRINT fiT 19. 1 i " indtastBuddsBf 
orBnaesteBkamp" 

275 SOUND 10. 500 
280 PAUSE 3 

290 PRINT AT 19.11"INDTfiST ODDS F 
OR NOESTE KfiMP" 

295 SOUND 20. 500 
300 PAUSE 2 
310 NEXT B 
315 PRINT AT 19. 11 " 


320 NEXT fi 

325 PRINT fiT 20.01" 

327 POKE 16418.0 

330 PRINT AT 21.21"tastBc. BforB?n 
dnuBrnBKuPon" 

340 PRINT PIT 23. 61 "tastBs. BYorBst 

OP" 

345 POKE 16418.2 
350 IF INKEY*="S" THEN STOP 
360 IF INKEY*="C” THEN GOTO 60 
370 GOTO 350 
700 SOUND 10. 10000 
710 PRI NT fi T 19.0i"dineB:>ddsferBu 
IOVI i°e. —■n.npJBpamiprfeB^ddsfc 
kaIBvaereBl . sBlO.B" 

720 PAUSE 200 
730 PRINT fiT 19.01" 


740 GOTO 90 
800 SOUND 10. 10000 
810 PRINT fiT 20. 01"Bu lovi isBodds. 
■hi ax. BIO. Bn i n. BOB" 

820 PfiUSE 200 
830 PRINT fiT 20.01" 

840 GOTO 110 
900 CLS 

910 PRINT “Bi nstrukt ionerBt i iBti 
os-systemR" 1 AT 3. 01 "Rt i I BietteBsy 
stemBkraevesBderBBWOBav .sersB" 
exnert-t i Ps"BsammenBi a9teBte9nfo 
rdei i ngerBpaaBhen-Biho I dsv i sBl - B 
x.BseB2. BHBBBU.eks. )Bllx 
1 x221xlB=B5/3/2 . BBBB .fr 9 ■ iBsaaB 

konb i nereid i sseHBWc>dds"B:'9Bi n 
d I ae99eBrnt I I emBOBHBt i I R20Bnroce 
ntBchanceif orMBHBBuf orudseteBi 
vet raske iserBi BsnBBhv i I kenBsomB 
he l s t Bk amoBse I vBomBB" odd s" =B10/0 
/OBel lerBenBhvi I kenBsomBhe I stBkO 
mbinat i onB********* 11 
920 POKE 16418.0 

930 PRINT OT 23. 21"TAST ENTER NAF 
R DU ER KLfiR" 

940 POKE 16418.2 
950 IF INKEY* <>"" THEN GOTO 60 
960 GOTO 950 
1000 SAVE "TIPs" 

1010 RUN 
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o+l OR 23=o+l THEN GO SUB 5000 

4008 IF 7=0+2 OR ll=o+2 OR 15=o+2 OR 19= 

o+2 OR 23=o+2 THEN GO SUB 5000 

4600 FOR 1=0 TO escape: PRINT BT h,29i B 

RIGHT 11 INK 51 FLASH 1!o*: NEXT f: LET 

h=h-l : PRINT AT 2,28; FLASH l; INK 5;"!1I 

SS" 

4620 GO TO 50 

4999 GO TO 50 

5000 LET 1=1-1: PRINT AT 21,o+l; FLASH 1 
:"bb": FOR 1=1 TO 5: BEEP .1,10: BEEP 1 
.20: BEEP .1,-10: NEXT I 

5001 PRINT AT 0,0; SCORE=”is1AT 0,11; LI 

UES=";|;AT 0,20;”HI=" ;bs ; " ; W* : GO TO 5 

0 

5200 LET 1=1-1: PRINT AT 0,11i"LIUES="it 
: FOR 1=1 TO 5: BEEP .1,3: BEEP .1,-10: 
NEXT I 
5300 RETURN 

6000 LET y=yt] : PRINT AT y,jia$: PRINT A 
T y-1,j i" 

6001 IF y=21 THEN GO TO 6003 

6002 GO TO 6000 

6003 LET c=c +1: PRINT AT c,bio*: PRINT A 
T e-l,bj" 

6004 IF c=21 THEN GO TO 6006 

6005 GO TO 6003 

6099 FOR E=] TO 10: PRINT AT 10,101 FLAS 
H 1 ; "GAME ODER":’ BEEP .1,10: BEEP .1,-1 
0: BEEP .1,-20: INK 0: INK 7: NEXT E 

6100 FOR (=0 TO 21: PRINT OUER HAT 1,0 

;" 1 * 3 4 5 : NEX 

T I 

6110 PRINT AT 11,7;"ALIEN FIK DIG OG"iAT 
12,7;”INUADEREDE JOROEN" 

6111 IF HS<=S THEN INPUT "DU LAUEDE EN 
NT HISCORE "iW*: IF LEN U*>3 THEN GO TO 

6111 

6112 PRINT AT 20,0i" ET NTT SPIL -J'N 
- INFORM. "■I*-" 

6120 IF 1NKEY*="J" OR INKEY*="J" THEN G 
0 TO 5 

6121 IF INKEY*="N" OR ]NKEY*="n" THEN G 
0 TO 6130 

6122 IF INKEY*="I" OR INKEY*’"I" THEN P 
APER 0: INK 6: CLS ! GO SUB 9990: GO TO 
5 

6129 GO TO 6120 

6130 STOP 
8888 GO TO 50 

8999 STOP 

9000 FOR n=0 TO 7: READ a: POKE USR "a"+ 
n, a : NEXT rt 

9010 DATA 12,30,45,30,54,99,54,20 
9020 FOR n=0 TO 7: READ a: POKE USR "b"+ 
ft,a: NEXT ft 

9030 DATA 8,8,42,42,28,62,127(54 

9040 FOR n=0 TO 7: READ a: POKE USR "c"+ 

ft,a= NEXT ft 

9050 DATA 0,8,28,42,127,20,42,85 

9060 FOR n=0 TO 7: READ a: POKE USR "d"+ 

ft,a: NEXT n 

9070 DATA 255,255,127,62,28,8,8,0 

9989 LET hs=0 

9990 PRINT AT 3,1i I DETTE SPIL SKAL DU 
BEKAEMPE DE ONDE FLYUENDE ALIEN OG, DU 

MAA 1KKE RAMME UED SI DEN AF FOR SAA8 N 
AAR DU NAAR ET UIST POINT-TAL FAAR DU ET 
EXTRA RUHSK1B HEN SAA BLIUER DET OGSAA 
SUAERE AT UNSLIPPE HYPERSPACE LA2ERNE 
GOD FORN0JELSE 

TASTER: 
7 8 

0 < > " " 

9991 PRINT AT 21,10, EN TAST" : TOR K=1 T 
0 10: BEEP .02,K: BEEP .05,30: BEEP .02, 
K: BEEP .05,28: BEEP -02,K: BEEP .05,29: 

BEEP .02,K: BEEP .05,27: NEXT K: IF INK 
EY*=" 1 THEN GO TO 9991 

9997 RETURN 

9998 SAUE 'OUT ALIENS' LINE 9999 

9999 PRINT AT 10,10; PLASH 1. STOP BAAND 
ET": PAUSE 200: CLS RUN 


Electric 

Spectrum 


■ Dette Spectrum-program 
udregner Volt, Ampere, 
Ohm, Etlekt, hvis du bare ind- 
taster to at taktorerne. Enten 
"E", "I", "R". "P". 

De ukendte faktorer indtastes 
som 0. Et eftekttuldt prog¬ 
ram !□ 

Hugo Pedersen 


SPEC¬ 

TRUM 


-'RnWSSKfltfHSgflBEl 



1 REM "hp” 

a PRINT RT 20,4..;"© OZ1IIO HUG 
O PEDERSEN" 

3 PRINT RT 1,a.: "DETTE PROGRAM 

KRN UDREGNE MOLT• 'AMPERE 

OHM- - EEFEKT ' . C'EN ENESTE BETI 
NOEL5E ER, RT DU MENDER TO RF FR 
MTORERNE." 

4 PRINT RT 6,0;"DU INDTRSTER 

E ' 'I' ' R' 'P' OG MRSKINEN UDRE 

GNER DE TO UKENDTE TRL FOP DIG." 

5 FLRSH 1. INUERSE 1. PRINT R 
T 11,0, "DE. UKENDTE SKRL TASTES I 
ND SOM 0= FLASH 0 INUERSE O 

O PAUSE 500 

10 CLS 

11 BORDER 4 

12 INK 3 

15 CIRCLE 123,139,24 
20 PLOT 147,139 
30 DRAW -47,0 
40 PLOT 124,163 
50 DRAW 0,-47 

70 INK S: PRINT AT 3,14;"E": P 
PINT RT 3,16; "I": PRINT AT 5,14; 
=R" PRINT RT 5,16,"P": INK 0 

60 INUERSE 1 PRINT RT 0,3;"DE 
UBEKENDTE KRLDER DU ’0‘": FLASH 
O INUERSE 0 

90 INK 1: PRINT AT 16,1;"INDTA 

ST 'E ' ” 

95 INK 2: FLASH 1: PRINT AT 3, 
14."E": FLASH 0: INK 1 

100 INPUT e 

101 PRINT AT 3, 14; "E" 

140 PRINT RT 16, 1;"INDTAST 'I 
145 INK 2: FLASH 1: PRINT AT 5, 
16;"I": FLASH 0 INK 1 

150 INPUT i 

151 PRINT AT 3,16;"I" 

190 PRINT AT 16,1; "INDTAST • R ' ”■ 
195 INK 2: FLASH 1: PRINT AT 5, 
14; -R": FLASH 0: INK 1 

200 INPUT r 

201 PRINT AT 5,14;"R" 

240 PRINT AT 16,1;"INDTAST P 
245 INK 2: FLASH 1 PRINT AT 5, 
16; "P" . FLASH 0 INK 1 

250 INPUT P 

251 PRINT AT 5,16;"P" 

252 INK 0 

255 PRINT AT 16,1;“ 

256 PRINT RT 10,1;" 

p?l 0 T^N e S§ $8 D 6i5® ftND !>• “*> 

P“d^THEN^GO WN& 


23© Ir e>© AND i>© AND C -0 AND 
P-O THEN GO TO 700 
200 IF e >0 AND i a© AND HO AND 
P=0 THEN GO TO 750 
300 IF e>0 AND i-0 AND r=0 AND 
P>0 THEN GO TO 600 
310 IF e =0 AND i >0 AND r=0 AND 
P>0 THEN GO TO 650 


510 PRINT AT 16,4;e; .. 

AT 19,4,i," A" PRINT AT 30,4;r 
, " OHM" PRINT AT 31,4,p," U” 

600 LET e =SOR ( r *p ) LfcT i -SOP 
<P /r ) 

650 LET e-i * r: LET p*r*it3 

7O0 LET r=e/i. LET p=e*i 

750 LET ise/r : LET p=et2/r 

300 LET i=p/e: LET r=et2/p 

350 LET e=p/i. LET rsp/ita 

855 PR INT AT IS , 4 , e ; " v " : PRINT 
AT 19,4,1," A” PRINT AT 20.4.r 
; ohm". PRINT AT 21,4,p;" U“. G. 
O TO S60 

360 IF i<l THEN GO SUB 1000 
370 IF r>1000 AND r<1000000 THE 
N GO SUB 3100 

330 IF r>1000000 THEN GO SUB 12 
00 

390 IF p >1000 AND p C1000000 THE 
N GO SUB 1300 

900 IF p >1000000 THEN GO SUB 14 
00 

95© GO TO 1S00 

100© LET i«i*1000 PRINT AT 19,4 
, i , " mA 
1025 RETURN 

1100 LET r =f/1000: PRINT AT 20.4 
;r,” Kohm 
1175 RETURN 

1200 LET r = r/1000000 PRINT AT 2 
0,4,r;" Mohm 
1275 RETURN 

1300 LET p=p/1000: PAINT AT 21,4 
, p , " K W 
1375 RETURN 

1400 LET p=p/1000000: PRINT AT 2 
1,4; p; " Mw 
1475 RETURN 

1500 INK 3. FLASH 1: PRINT AT 16 
, 1; " E , AT 19,1; "I", AT 20,1,"P";A 
T 21,1,"P": FLASH 0 
1510 PAUSE 900 
1512 INK 0 
1515 CLS 
1520 GO TO 10 
2000 INK 0: BORDER 7 


U": PRINT 
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Spider invasion 

_____ Mi \m, ./ ,Zs&i 


mm 


I den stjerneklare nat angri- 
bes jorden af horder af edder- 
kopper. Din opgave er at sld 
angrebet tilbage ved hjcelp 
af en laserkanon. Edderkop- 
pen der rammes, tvinges til¬ 
bage, men angriber straks 
igen. Hver edderkop, du 
rammer giver 10 points pd 
scoringstavlen gralisk adap¬ 
ter nodvendig 0 

Ei.k Hougaard & 
Michael Andersen 





•i a. t* 


B 

tinmuii 





\?A «. '^1 

'' l ‘ ! i r/> 

\ [l J « rt I ( 

/t/imjM 1 “ 




’•» EDDERKOPPRENE ANGRIBER AF ERIK HOUGAARD *• 
’*» MICHAEL ANDERSEN ** 
'** SKREVET I JANUAR 1985 ** 


v-yi«vv/ yaw. • uh?" ' 


TIL IBM PC MED BASICA OG GRAF IK ADAPTER 


DRUG < 4,1 S. b> TIL STYRE KANONEN MED OB <S> ** 
FOR AT SKYDE »» 


IRYI NUMLOI:t FOR DER THYMES RIJN 

.......... "VMT’ 

GOTO 210 

LOCATE 1,1:PR 1 NT "SCORE:"iSCORE 

PLAY "o2mbt20011>c<15a>14dl be llc<l1>c<13g>14e-lSc<13b-12»lI>d<l5dl3b- 


LOCATE 1,1:PR IN I "SCORE:“1 SCORE 
PLAY"12>f<l 3*1 3y#b>14f 16el 1 e< 

PLAY "o2mbt20011>c<13#>14dl6cllc<l1>e<15g>l4e-l5 c< 13b-l2«11>d<15dl3b- 

2e 

PLAY "1 1 H4ef 13fl4el IfT 1 15L6A£t.2EL6FGL3B-L2AL6AGL2GL6AB->L3DL2CL6C<Bt 
L3FL2E 

PL A Y"02 >L6EDL.2DL6DCL2CT 1 SOL 1 C< L6A >L4DL6CL 1 CC< L6G >E-L4C<B-L2A>L I DL6< Dl 

3FL2EL2FL3FL3EFL3FL4ELIF 

END 

A-3 

PI-3.141593:• TEGNE SPRITES 
SCREEN 1iKEY OFF:CLS 
GOSUB BOO 

CIRCLE(160,100),2,2 
CIRCLE(160.87),8.2 
LOCATE 11,1:PRINT " 

CIRCLE(160,93),9,2.3.1415927#,.1*3.1415927#,3/13 

CIRCLE (160,103),7,2 

CIRCLE (160,95),4,1,,,9/6 

CIRCLE (160.95).4,1...15/5 

LOCATE 14,10:PRINT ” 

DIM UH(300) 

GET (153,91)-(167,110),UH 

PUT ?50,50>,UH 

GOSUB 710 

GOSUB 750 

GOTO 670 

GOSUB 650 

DIM A(39):FOR 1=1 TO 39:A(I)=4:NEXT:Y»20:LI=3 
SCREEN 1: KEY OFF:COLOR 0,6:' TEGNE SkfERMB ILLEDE 
LINE(0,150)-(319,150),2 
CLS:A*=CHRi(1):7=1:Q*=CHR*(127) 

FOR 1=180 TO 200 STEP 2:LINE (0.ISO)-(319,I),1:NEXT :FOR 1=180 TO 200 


16y) 3f 1 



HCT 


H«r p« "ion" os "All om 

Data" aagar at halo tldan al¬ 
tar nya og tpcandanda pro- 
grammar til alia gaangaa 
com put arty par. Llga Ira tmd 
imarta rutlnar, oaar spU til 
torlaaa bnigarprogrammar. 
Alla oflanlllggjotto program- 
mar balannat mad op tU 
1000 ikattabt kronor. dar ud- 
batalaa kort altar at bladat ar 
udkommat 

Indiand dlt/dlno program¬ 
mar pd kauatlabdnd. di¬ 
sk a tta a liar mlkiodrlr* og 
vadlcag baskrtvaksa og gama 


udllstnlng. Programmar 
udan modaondt lagarmadla 
kan Ikka baarba)dai at ra- 
daktlon og Idr dartor Ikka 
chanca lor at kommo l bla¬ 
dat. 

Ai praktlika grundo badar at 
om, at du vadlaaggar an 
bankorot rolurkuaort mad ty- 
dallg adrauaangtvaUa. 

VI glcadof oa til. at du konlak- 
ta oa. Sand programmama 
tU "All om Data", St. Kon- 
ganagada 72, 1264 Kaban- 
havnX. 


:LINE (O,I)-(319,180),1:NEXT 
450 CIRCLE (240,40).17,.1,2»PI,PI/2.4 
460 CIRCLE (230,36).17..2.9*PI/2.PI/4 
470 PAINT(255,40) 

480 DRAW "bmO, 150r 10e3i-30f 10r30el 0r30f 10r50e30f SOrBODSBLSOPl, 3" 

490 LINE (O,ISO)-(319,180),3 

500 FOR L=0 TO 200:FD=INT <RND*319):DF=INT(RND*150):PSET(FD,DF):NEXT 
510 WINDOW SCREEN (1,1>-<22,23):B0=0:DIM S*(74> 

520 FOR 1=1 TO 21:PUT(1,4),UH:NEXT 
530 FOR 1=1 TO 39:A(I)=4:NEXT:Y=20:LI=3 
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PUT(Y,19), FL:' SELVE SPILLET 

F=INT(RND*21)+1:IF A(F)+M>20 THEN A <F> =4: PUT (F.- A <F> ) . UH, XOR: L I=LI-1 : IF LI=0 
THEN 900 

PUT (F,A(F)),UH,XOR:A(F)=A(F>+M:PUT(F,A(F>).UH,XOR 

M=M+. 002: READ St (BO) : READ St (60+1 I : Pl.AV St(E<0):PLAY St (60+1 ): 60=60+2: IF 60= 
74 THEN PLAY"P20":60=0:RESTORE 
IF M>3 THEN M=1.4 

LOCATE 1,1:PRINT"SCORE:"!SCORE;"LIVES:"!LI 
IF A(F)>=18+M THEN LI=LI-1:A<F>=4:IF LI=0 THEN GOTO 900 

Bt=INKEYt:IF Bt="4" AND Y>1 THEN PUT(Y,19>.FL,XOR:Y=Y-1:PUT(Y.19>,FL.XOR 

IF Bt="6” AND Y<21 THEN PUT(Y,19),FL,XOR:Y=Y+1:PUT<Y,19),FL,XOR 

IF Bt="S" THEN FOR 0=17 TO A(Y) STEP -1:PUT(Y,O),SK,XOR:NEXT :PUT(Y.A(Y>>.UH 

,XOR:PUT(Y,A(Y)),UH1,X0R:FOR 0=17 TOA(Y) SIEP -1:PUT(Y,O),SK,XOR:NEXT :PUT( 

Y, A < Y) ) ,’UH1 , XOR: A (Y) =4: PUT ( Y, A (Y) } ,UH. XOR: SCQRE=3C0RE+10 

GOTO 550 

M=1.5 

RETURN 

FOR 1=1 TO 308 STEP 14:’TEGNE SPRITE 
PUT (1,100),UH:U=U+1 
NEXT :PR1NT 1 
GOTO 390 

LINEUO, 10) - (10,20), 2 
DIM SK(IOO) 

GET(3,3) — (11,18), SK 
RETURN 

CLS: DRAW "Bill 60. 100C3RDDFDFDDDDDFDDDDFFRF RRRRRRKRTIUULRRI IJDDDDLLLLLL LLLLLLLLL 
LLL.LLLLLLLLLLLLLLLLLUUURLLRUDDDRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRLLLLLLLLLLl 
LLLLLDDDLURRDUUIIl LLLLLURRRRRRRRRRLLLLLLLLLLLEUUUIJEUUUUEUUEUURRUUUUDDDDDDBDP3 

DIM FL(400) 

GET (152,95)-(165,111),FL 

PUT (100,100),FL 

RETURN 

CIRCLE(160,100),2,2 

CIRCLE (160,96).7,2,3.1415927#.,2»3.1415927# 

CIRCLE (160,95),4,1,,,9/6 
CIRCLE (160,95),4,1... 15/S 
LOCATE 14, 10:PRINT " 11 

DIM UHK300) 

GET (153,91>-(167.110),UH1 

PUT (50.50),UH1 

CLS 

RETURN:’SLUT SPIL 

FOR 1 = 1 TO 23:LQCATE I,I:PRINT "GAME OVER.":NEXT 

FOR 1 = 1 TO 300:N=INT(RND*2I> + 1:M=INT(RND#IS)+1:PUT(N.M►.UU:NEXT 
GOTO 140 

DATA mb. o3, t255,13, c, L4. q, 16. f #. 1 3,g, i ,12, d. 1 •,d,L4.«. 1 6, qtt. I 1... ci. 1 .. . 

1 4gl6.f #13gf . 12d, 13,». 14b. 16a#, 1 3b. 12 c<, 13,*. 14. i .ln,R,L3. (.'• , 6.I2.FB.L . 
F.L4.B.L6, A.L3.6. A. L2, E , L3. D. E. F. 13. L6. EFG. I 3A.L6.GE .1. .. D.E.I 6.FL3G.I 


LYT TIL 
DATAVOICE 



Altom 

DflTR 


Hver lordag kl. 
17-18 pa FM 
102,8 MHz i 
storkebenhavn 

Danmarks I 
hotteste 
dataradio I 


Produceres i samarbejde 
mellem The Voice og 
mdnedsbladet "Alt om Data’’ 


Vigtigt tip 

■ Vi ldr ofte henvendelser ira 
lcesere, der ikke kan tyde de 
inverse tegn pd Commodore 
programmer. 

I de ileste tilicelde bmges dis- 
se tegn udelukkende til at far- 
ve teksten eller printe den 


pcenere ud pd skcermen. De 
kan derfor otte undvceres, da 
de ikke betyder noget for sel- 
ve programmets korsel. 
Bemcerk dog, at tegnene in¬ 
verse hjerter og inverse S skal 
bruges altid.D 


Inceste nummer af "Soft”, vil samtlige Commodore 64 ud- 
listnlnger vaere forsynet med Iniormatloner l stedet for et In¬ 
verse tegn. 
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Her pd "SOFT" og "Alt om 
Data’ ’ seger vi hole tlden el- 
tor nye og spa»ndende pro¬ 
grammer til alle gcBngse 
computertyper. Llge Ira smd 
smarte rutiner, over spil til 
seriese brugerprogrammer. 
Alle oltentliggjorte program¬ 
mer belennes med op til 
1000 skattelri kroner, der ud- 
betales kort elter at bladet er 
udkommet. 

Indsend dit/dine program¬ 
mer pd kassettebdnd, di¬ 
skette eller mikrodrlve og 
vedlaeg beskrivelse og geme 
udlistning. Programmer 
uden medsendt lagermedie 
kan ikke bearbejdes al re- 
daktion og Idr derlor ikke 
chance lor at komme i bla¬ 
det. 

Al praktiske grunde beder vi 
om, at du vedlCBgger en 
Irankeret returkuvert med ty- 
dellg adresseangivelse. 
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Survive 


■ Dit rumskib teber labsk. Du 
kan ikke standse del. men du 
mb undvige stensp 0 gelseme 
sb lcenge som muligt. Det er 
essensen i dette Spectmm 16K 
spil. 

Svcerhedsgraden stiger auto- 
matisk lor hver 200 points. Ret- 
ningeme op, ned, venstre og 
hojre styres med knappeme 
Q, A. KogL. 

Thomas Shoe 

0>REM PROGRANIIET ER LAUET AF THO 
HAS STR0E CHARLOTTENLUND 
2 GO SUB 6000 
11 LET p =0• lET a-30 
20 BORDER 0: PAPER 2- CLS 
30 FOR n“l 10 o 

“0 PRINT INK 4;AT CRNO*121*1,TRND*27) 
-1 ;"a" 

60 NEXT n 

60 FOR n =0 TO 31: PRINT INK 6 jAT ],n; 
'q": PRINT INK 6 ;AT 21 ,n; q": NEXT n 
20 FOR n-1 TO 21: PRINT INK 6 ;AT n, 0 ; 
"V': PRINT INK 6 i AT n,3l;"q’': NEXT n 
80 LET x= 10: LET y=15 
83 PRINT INK 3iAT 0,22i poInts :" ;o 
85 PRINT INK 2 ;AT 0,0; ' h i 9 h : 'ins 
90 PRINT INK 2iAT x,yi e" 

100 IF INKEY$=-"q" THEN GO TO 1000 

110 IF INKEY*»"a" THEN GO TO 1100 

120 IF INKEY*="1" THEN GO TO 1200 

130 IF lNKEY*="k" THEN GO TO 1300 

140 PRINT INK 0 ;AT x,yi" " 

150 GO TO 90 
1000 LET p=ptl 
1005 PRINT INK 3 jAT 0,29 ;p 
1002 BEEP .0002,30 

1008 IF p = 200 OR pM00 THEN GO TO 3000 
1010 IF lNKEY*="a" THEN GO TO 1100 

1020 IF INKEY*="l" THEN GO TO 1200 

1030 IF INKEY*="k" THEN GO TO 1300 

1040 LET x=x-l 

1045 IF POINT f.(y*8)»3, 173-(x*8)1'1 THEN 
GO TO 2000 

1050 PRINT INK 2;AT x.yi'e" 

1060 GO TO 1000 

1100 LET p=p + l 

1105 PRINT INK 3.iAT 0,29 |p 

1102 BEEP .0002,30 

1)08 IF p=200 OR p-400 THEN GO TO 3000 
1110 IF INKEY*=’q" THEN GO TO 1000 

1120 IF INKEY*="l" THEN GO TO 1200 

1130 IF lNKEY*="k" THEN GO TO 1300 

1)40 LET x=xtl 

1145 IF POINT C(y*8)»3, 123-1x*8).1 = 1 THEN 
GO TO 2000 

1150 PRINT INK 2,AT x,yj s" 

1160 GO TO 1100 

1200 LET p=p*1 

1205 PRINT INK 3iAT 0,29 ;p 

1202 BEEP .0002,30 

1208 IF p=200 OR p=400 THEN GO TO 3000 
1210 IF INKEY*="q” THEN GO TO 1000 

1220 IF INKEY*="a" THEN GO TO 1100 

1230 IF lNKEY*="k" THEN GO TO 1300 

1240 LET y=ytl 

1245 IF POINT C(y*81*3,173-tx*8)1=1 THEN 
GO TO 2000 

1250 PRINT INK 2;AT x.yi'J" 

1260 GO TO 1200 
1300 LET p=ptl 
1305 PRINT INK 3;AT 0,29 Jo 
1302 BEEP .0002,30 



i 


.1 



1 308 IF p = 200 OR p-400 IMfc\ GO TC 3000 

1310 IF INKETS THEN GO TO 1100 

1320 IF INKEY$="q" THEN GO TO 1000 

1330 IF INKEY$="I" THEN GO TO 1200 

1340 LET y=y-1 

1345 IF POINT CCy*8)*3,173-Cx*8)3=1 THEN 
GO TO 2000 

1350 PRINT INK 2iAT x,yi"h" 

1360 GO TO 1300 

2000 PRINT INK 5 i FLASH 1 iAT 20,ll;"GArt 
E ODER'’ 

2100 FOR n=]5 TO -30 STE^ -3: BEEP .l,n: 
NEXT n 

2500 FOR n=l TO 200: NEXT n 
2505 IF INKEY* <>"" THEN GO TO 2600 
12510 GO TO 2505 
I 2600 IF hs <p THEN GO TO 2200 





2610 CLS : INK 4 
; 2620 PRINT "REKORDEN ER "ins 
12630 PRINT : PRINT "DEN BLEU SAT" i ' PR1N 
T AT 3,0i "d. " id* i al " In* 

2640 PAUSE 0 
2650 GO TO 11 
2200 CLS : INK 4 

2210 PRINT "Tlllykke. Du Ear sat ny reko 
fd. Indtast uenliqst dit naun. " i ' INPUT 
n* 

: 2220 PRINT : PRINT Huilken dato ?•' : INP 
'UT d* 

2225 LET ns=P 

2230 GO TO 2610 

3000 CLS : LET a=atl5 

3005 FOR n=0 TO 69: BEEP ,0005,n: NEXT n 
3010 PRINT "Godt klarot. Du er kommet lr 
om til naeste trip. 

3020 FOR n=0 TO 200 : NEXT n: GO TO 20 
5090 STOP 
6000 FOR J=0 TO 2 
, 6010 READ q f 
6020 POKE USR "a"*J,q 
6030 NEXT J 

6040 DATA BIN 00011000.BIN 0011]100,BIN 

01011010,BIN 01111110,BIN 01111110,BIN 0 

1111110,BIN 11111111,BIN 10101001 

6050 FOR J-0 TO 2 

6055 READ q 

6060 POKE USR "q"fj,q 

6020 NEXT j 

6080 DATA BIN 00011000.BIN 00011000.BIN 
00111100,BIN 11111111,BIN 11111111,BIN 0 
0111100,BIN 00011000,BIN 00011000 
6090 FOR J—0 TO ? 

6100 READ q 

61 10 POKE USR 'V+J.q 

6120 NEXT J 

6130 DATA BIN 0001I000.BIN 00011000.BIN 

00011000,BIN 00111100,BIN 01111110,BIN 1 

1111111,BIN 00011000,BIN 00011000 

6140 FOR j=0 TO 7 

6150 READ q 

6120 POKE USR 11 s " ♦ j, q 

6180 NEXT J 

. 6190 DATA BIN 000)1000.BIN 00011000.BIN 
, 11111111,BIN 01111110,BIN 01111110,BIN 0 
0111100,BIN 00011000,BIN 00011000 
6200 FOR J = 0 TO 7 
'6210 READ q 
6220 POKE USR ”h'*j,q 
| 6230 NEXT J 

6240 DATA BIN 00000100.BIN 00001100.BIN 

00011100.BIN 11111111.BIN 11111111,BIN 0 

0011100,BIN 00001100,BIN 00000100 

6250 FOR j —0 TO 7 

6260 READ q 

6270 POKE USR , ’j' *J,q 

6280 NEXT j 

6290 DATA BIN 00100000.BIN 00110000.BIN 
001 1 1000 , BIN nilMll.BIN 11111111 ,BIN 0 
0111000>B1N 00]10000,BIN 00100000 
7000 RETURN 























Tegn abonnement pa SOFT. 



SOFT Special er blevet en sd stor succes Ira starten. at 
vi har besluttet at udgive Danmarks eneste program- 
blad hver anden mdned. 

Det vil sige, at SOFT Special udkommer igen, i april. 
juni. august, oktober, december o.s.v 

★ 

Hvis du vil undgd, at SOFT er udsolgt hos din blad- 
handler, er det en god ide at tegne abonnement 6 
numre at SOFT Special koster 153 kroner, og du tdr 
bladene portolrit tilsendt. Ndede du ikke at kabe ter- 
ste nummer at SOFT, kan du bestille bladet pd forla- 
get, Prisen er kr. 27,85, 


Ring og bestil abonnement pd teleton 01-11 28 33 el- 
ler indbetal straks kr, 153 pd postgirokonto 940 60 77 


Ncsste nummer al SOFT udkommer den 20 Juni 


Vi tester de 
tunge drenge 


' 'ny elektronik'' gdr tcet p6 3 Hi-Fi 
kraitveerker. Hvilket udgangstrin 
er bedst - Quad 405 II, Yamaha 
M-40 eller Kenwood M-l? 

Utradiotionelle lasninger kende- 
tegner de to danske hajttalere B&O 

Red Line 40 og Dali 6. Lever lyden 
mon op til de smarte ideer? 

En avanceret mini-producer tdr 
man hjem, ndr man kaber Sansuis 
AV-77 audio/video processor. Vi 

kigger det lille vidunder efter i sem- 
mene, og det kom der meget 
speendende ud at. 

Solen kryber op ad himlen, og sce- 
sonen ncermer sig for ’ 'asfaltblce- 
sere” - de store bcerbare kassette- 
radioer. Vores testhold har prave- 
kart to musikmaskiner fra Hitachi 
og Sanyo. 

Irriterer bilradioens lydstyrke? Sd 
byg' 'ny elektroniks" smarte auto- 



volumen-kontrol. Den justerer selv 
anlceggets lydstyrke etter stejnive- 
auet i kabinen. 

Tonekontroller er mange ting. En at 
de gode er den paramentriske 
equalizer, du kan bygge eiter vo¬ 
res forskritter, 

Optiske laserplader er ogsd pd vej 
ind i data. Vi beskriver fremtidens 
Gigaplader i en stor reportage. 

Spiller du musik selv, - sd Ices vores 
test at Juno 106 synthesizeren. 

Megen 1yd lor tcerre penge. 

Masser at byg-selv idder: I/O port 
til Amstrad. - Mini mikrofon for- 
stcerker - Lille RIAA Amp - kry- 
staltester. 


Kab ”ny elektronik" nummer 5 
hos din bladhandler i dag. 
Priskr. 21,85. 



















*1 » 



Kob det nye nummer af 
Alt om Data i kiosken. 
Kun kr. 21,85 


Du kan ogsa tegne abonnement pa 
11 numre for kr. 218,50 pa telefon 
01-11 28 33. 









